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;DISK ADDRESS REGISTER 

;multi-purpose register 
•tnitions - control status register 

JCONTRCL ftND STATUS REGISTER 
?ANY ERROR BIT 
/DRIVE ERROR BIT 
;NON-EXISTANT MEMORY ERROR 
JDATA LATE EFPCP 
?HEADER NOT FOUND ERROR 
;DATA CHECK ERROR 
;HEADER CHECK ERROR 
yOPERATICN INCOMPLETE ERPOP 
;DRIVE SELECT MASK 
;CONTROLLER READY MASK 
INTERRUPT ENABLE MASK 
;PUS ADDRESS UPPER MASK 
;DRIVE HEADY MASK 



ASSEMBLY ROOfllES 



0077 

mi 



mcin 3©li(l052) 22-iOf-78 16J32 PIGS 1-3 
I3S12 



SEQ 0044 



40 



^§ 



doooo 



002152 



mm 

005032 
004744 
004765 

hm 

005127 

mn 

005204 
005173 
005235 



lillfSK 
HSMSK 
CliMSK 



SIT Dgf SiltlOiS - 



Bit 



lisf.p- 





DirimflOMS - D|SK 

"^ ^^""^"^^liilf ill 



RESS FOR SEEK 
^ BIf 



DRISS 
_S SEfl 

Sgf Mil 



SiCI MISK 
OR GEf SflTUS 



BIf DiriilflOiS - 



HDHS£L 

COS 
UGESfA? 



SI? Diriiifioas -MP 



=10© 



m 'MM 

- MP roi ifio 



;?gR 
liig ussK 

mmm 



BI? DEFIilflOiS 



SflfOS 




IRgiDS ODT StlfQ 

{driIi ssglcf 11 



000 



GLBDHT 



MP FOi est 

111! Wawui 

p STitUS 

>f0t08E CHECK SflfUS 
sHRIfB g&?E ERROR STITOS 

mi m,nm. status 

JllRIfg DATI ERROR STATUS 



TABLE OF OPERATIOH MESSAGES ,^^ 

«HORD ;filler 

--- MMRCHK IMESSAGE FOR 

MGTSfA } 

HSEEK ; 

MREAOH ; 

MURITE } 

MREAD ; 

MHRSET ; 

MDATCP ; 

MHDRCP ; 

MCYLOP } 

MULOAD } 

MINOUT ; 



.MQRO 
.HORD 
.UORD 
• UORD 
«WORD 
.WORD 
.HORO 
.MORD 
.MORO 
.WORD 
.HORD 
,WORD 



MRITE CHECK 
GET STATUS 
SEEK 

READ HEADER 
MRITE DATA 
READ DATA 
WITH RESET 
aiTH DATA COMPARE 
MITH HEADER COMPARE 
LOAD HEADS 
UNLOAD HEADS 
IN-OUT SEQ 



ASSEMBLY ROUTINES 
CZRLDB-PTl 25-0CT-78 



MACYll 30A(1052) 22-MOY-78 16;32 PAGE 1-4 
13112 ^ 



SE(^ 0045 




.HORD 
.WORD 
.WORD 
.WORD 
«MORD 
• HORD 
.WORD 
.HORD 

J TABLE 
RESTBL: -HORD 
.MORD 
.WORD 
.WORD 
.WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
-WORD 
.WORD 
.WORD 
.WORD 
.MORD 



M00TI8 

MFOLWRT 

MREVSK 

MFWDSK 

MRESKO 

MFWSKO 

MBADAD 

M40HDR 

OF RESULT HAME 
MCERR 
MDRERR 
MNEERR 
MFLERR 
MHDERR 
MOPERR 
NMDRST 


MWDERR 
HHCERR 


MSTERR 
MSPERR 
HWGERR 

MDSERR 



OOT-IM SEQ 
FOLLOWIMG WRITE 
REV SEEK 
FWD SEEK 
RE¥ SEEK 
FWD SEEK 

BAD DISK ADD FOR HR|TE 
40 HEADER OPERATIDH ^ 



MESS 

; 
} 



AGE ADDRESSES 

CONTROLLER ERROR 

DRIVE ERROR 

MOH-EXISTAMT MEMORY ERROR 

HEADER HOT FOUND-DATA LATE 
, HEADER OR DATA ERROR 
;OPERATIOH INCOMPLETE 
;N0 DRIVE STATUS AVAILABLE 

;WRITE DATA ERROR 
5hEAD CURREMT ERROR 

;SEEK TIMEOUT ERROR 
;SPIIIDLE error 

;mrite gate error 
;drive select error 



i PATTERN TABLE 
PATTBL: -WORD PATl 

.WORD "" 

.WORD 

.WORD 

• WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



Iubstk: 



SUBROUTINE CALLING STACK 



WORD 
.WORD 
.WORD 
«WORD 
• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



T25TBL! .WORD 2 

.WORD 6 

.WORD 9. 

.WORD 12. 



ISTACK IS 12 WORDS LONG 



STABLE OF DIFFEREMCES TO BE USED 
llH TEST 25 



ASSEMBLY ROUTIHES MACYll 304(1052) 22-MOV-78 16s32 PAGE 1-5 
CZRLDB-PTl 25-0CT-78 13S12 

.WORD 17. 

-WORD 22. 

.WORD 27. 

.WORD 34. 

.MORD 41. 

.SORD 128. 

.MORD 255. 



SFQ 0046 




") 



taSTBLS 
CYLfBLs 



TABLE TO BE USED IN TEST 33 AND 34 TO BUILD AND STORE THE 
CYLINDERS TO BE USED IN THE TEST. 
.BLKM 10 



002424 000000 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
-BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

SSINDX: .WORD 



;TJIBLE OF DEFAULT CYLINDERS 



^SUBROUTINE STACK INDEX POINTER 



ASSEMBLY ROUTINES 
CZRLDB.PTl 25-0CT-7a 



MACYll 30A(1052) 22-N0V~78 16:32 PAGE 1-6 
13:12 



SEQ 0047 



297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 

m 

317 

m 

320 
321 



324 
325 
326 
327 



330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
3 45 
346 
347 
348 
349 
350 
351 
352 



002426 
002430 
002432 
002434 
002436 
002440 
002442 
002444 
002446 

002450 
002452 
002454 

002456 
002460 
002462 
002464 
002466 

002474 
002474 
002476 
002500 



002504 
002506 
002510 
002512 
002514 

002516 
002520 
002522 
002524 
002526 
002530 
002532 
002534 
002536 
002540 
002542 
002544 
002546 
002550 
002552 
002554 
002556 
002560 



000000 
000000 
000000 



002502 000000 



000000 
000000 
OOQOOO 
000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



6pflag: 


3PERATI0NAL FLAGS 




.mord 





;OPERATION FLAGS 


done: 


.aORD 




;OPERATION COMPLETE FLAG 


hadone: 


• WORD 


5 


;HEAD ALIGNMENT DONE FLAG 


erhead: 


.WORD 





;address of error header 


morece: 


.i^ord 





;M0RE than 1 COMPARE ERROR 


I5g??l' 


.WORD 





;ERR0R return SWITCH 


bsflag: 


.irfORD 





;bad sector flags 


SRTSWI: 


.WORD 





;write switch 


tblstr: 


.iORD 





;table storage 


rlbas: 


• WORD 





;RLii base address 
;RLii VECTOR address 


SHSS* 


.»ORD 





rldrv: 


.WORD 





?drive number under test 


l.cs: 


.l^ORO 





;CONTROLLER REGISTER STORAGE 


J-S^" 


.WORD 





;before operation 


l.da: 


• WORD 







h'^P' 


WORD 







T.CS: 


.WORD 





;C0NTR0LLER REGISTER STORAGE 


t.ba: 


.WORD 




; AFTER OPERATION 


t.da: 


WORD 







T.mp: 








HDSRDl: 


.WORD 





?HEADER word STORAGE 


HDWRD2: 


.MORD 







HDWRD3: 


rfORD 







T.STAT: 


WORD 





;DR1VE STATE STORAGE 


resparm: 




-WORD 


;PARAM BLOCK FOR REASON REPORT 




^ORD 









WORD 









WORD 









MORD 







drvcnt: 


WORD 





JDRIVE COUNT FOR DRIVES UNDER TEST 


difadg: . 


WORD 


s 


^DIFFERENCE AUGMENT FOR SEEK 


olocyl: , 


aORD 





;OLD CYLINDER 


newcyl: . 


WORD 





?NEW CYLINDER 


curcyl: . 


WORD 





;CUHRENT CYLINDER 


desdif: , 


WORD 





;dbsired d fference 


dessgn: . 


WORD 





;DESIRED S GN 


deshd: , 


WORD 





;DESIRED HEAD 


DESSEC: . 


WORD 





?DES RED SECTOR 


TEMPO: . 


WORD 





;TEMPnRARY STORAGE 


TEMPI: , 


WORD 





JTEMPORARY STARAGE 


TEMP2: . 


WORD 





;temporary storage 


FMP3- ■ 


WORD 





;TEMPORARY STORAGE 


TEMP4: . 


WORD 





?TEMP0RARY STORAGE 


TEMP5: . 


WORD 





;TEMPQRARY STORAGE 


ISMP6: . 


WORD 





;TEMP0RIRV STORAGE 


TEMP7: • 


WORD 





^TEMPORARY STORAGE 


TEMPS: , 


WORD 





;temporary storage 



TIMER storage 



ISSEI^BLY ROOflMES MICYll 
CZHLDB«PT1 25-0Cf-78 13U2 



301(1052) 22-iOf«t8 165 32 PIGE 1-1 



Sm 0048 




004466 
004470 
004472 
""4474 



000000 

mm 

000000 
177772 




jqii cfLjppii 

iOili CfLIlQES 

foil c^i'llBll 

|0iE ClfLjIpip 
OiE CfLj|g|i 

lOiE CfLjJpg 
128 CfLJir 

>128 CfLIlMi 

1 128 CfLJ 

}l28 CfLj 

|25§ C¥l.j 

{2S6 C?L 



MISCELL&iEOOS CQOifERS 



rORiIRD liMER 
rOHHIRD MIDDLE 
FORMARD OUTER 
REfERSE IMiER 
REVERSE MIDDLE 
RE¥ERSE OOfER 
FORiSRD IMMER 
rORHIRD OOfER 
RifBRSE INiSR 
REfERSE OOTER 
rORIiSRD 
SEflRSi 



; EXPECTED flHB OiE CTLIHDER 

||g|gi%'gcii"oig8 ±'n .Ota SIZI.G 



>?»§S..CJg||T 



oiii'ih 



_, k TEST) 
k TEST) 



T0„ 



H cOuMfEM tLoe 

;ERR0R POUTER 

I STORAGE FOR ERROR COOMTERS 

$PASS MUMBER FOR PR06RJIM 

ScOUiTER FOR PARAMETER SET HUMBER IN USE 

' IRROR COOBTER 



>LQC|L g 
llMHlBlf 

JhardhjiI 



isFVILJ 
SBSFIL2 

fbsfil: 

IBOFF: 

obuffs 

PATIS 
PAT2: 



_jgB-_- 

ERROg CQUHTIHG FLAG 

,..„..^-„..j r::. r^:'jRA»CE 

iPOMgR FAILURE O^CURANCE 

bad SECTOR TABLES AHD POIgtP§»^««„^ «*, o,. «ar,n «,, b^ 
«aORD >BAD SECTORS FILES VALID FLAG 

.BLKM 
.BLKi 

.BLKM 
.BLKi 

.MORD 
.MORD 
-aORD 
,iORD 



n 

200 
200 



177772 



ISOFTMARE BAD SECTOR FILE 
JfACTORY BAD SECTOR FILE 

;IKPOT BUFFER 
;OUTPUT BUFFER 

?PATTERM 1 CALL ZEROS) 



ASSEMBLY ROUTINES MACYll 
CZRLDB.PTl 25-OCT-78 13:12 




40 

004642 
004644 



064221 
132110 



30A(1052) 22-H0V-78 16:32 PAGE 1-8 



.MORD 
.IJORD 
oHORD 
.HORD 
.MORD 
.WORD 
.MORD 
.MORD 
.MORD 
.MORD 
«MORD 
.MORD 
.MORD 



SEQ 0049 



052525 
177252 
177252 



PAT3: 



PiT4s 



PAT6: 



.MORD 
.MORD 
.MORD 
.MORD 
.MORD 
.MORD 
.MORD 
.MORD 
.MORD 
.MORD 
.MORD 
.MORD 
.MORD 
.MORD 
.MORD 
.MORD 

.MORD 
.MORD 
.MORD 
.MORD 
.MORD 
• MORD 
.MORD 
.MORD 
-MORD 
.MORD 
.MORD 
.MORD 
.MORD 
.MORD 
-MORD 
.MORD 

.MORD 
.MORD 
.MORD 

.MORD 
.MORD 
.MORD 
.MORD 



mm 



132110 



IkSSEMBLf ROOfligS 
CSRLDB-PTl 25-0Cf-78 



^ICfil atiCIOil) 32-iOf-7S 16s 32 fIGi i»9 

13112 ■ 



SEQ 0050 




04674 
004676 177777 
00470 




004740 125252 
004742 1SS55S 



FIf7t 
PIfSS 



PIf9S .muD 
PIflOl .iORO 





iSCXE 
kSCll 

mcylop: .isciz 

MOOTIM! ,ASCIZ 



OS i 

k COI 



mm QA 



MPi^RE / 



COMPARE / 
iRS' 



MliOUfl 
MrOLiRf: 



R¥/ 

^^ol'^o^o cc seek/ 

/FOL 255 to CC SEEK/ 

«ISCI2 /FOL WRIfE (iO SEEK)/ 



aSSEMBLY ROOflMES HICYll 301(1052) 22~iOf-78 16s32 PIGE 1-10 
CZRLDB-Pfl 25-0CT-78 13812 



SEQ 0051 



MREfSKi 
SDSKS 



»iSCIZ 
«iSCIZ 

aiSClZ 




/IDJ CVL liRllH £F|BR RBf 
/ADJ C¥L HRffI Aft ER FWD 



SK/ 



SEC FOR PI 




ILE 
10 - 



fES/ 
ROG ClPICItY/ 



OMA¥IILABLE FOR TEST/ 

iOf REC^R FROM PMR FAIL/ 



/RLHP/ 
/OP lilT 
/OP DOME 
/liORD / 



I', 



-isciz' /lifSPf 

SEf-MO OR? 



TO LATE/ 
RESPOMSB 



INfRPT OS CMMD COMPLETE/ 
~" /CMTLR HOHG (MO RDY)/ 



DID MOT CLR7 
CHK_MgT_RSET/ 



-ASCIZ 
/ERR 

/VOL 

/UNXPCTED ERR/ 
/ TEST/ 

/DIFF OF 1 SEEK/ 
/OOT GRD BAND DETECT/ 
/IHC SEEK FHD HD 0/ 
/IMC SEEK REV HD 0/ 
/INC SEEK FWD HD 1/ 
/I8H GRD BAND DETECT/ 
/IHC SEEK REV HD 1/ 
/SEEK/ 

/FSD OSC SEEK/ 
/REV OSC SEEK/ 
/SEEK TIHING/ 
B 



BAT A/ 



MING/ 



^§liRt 



£sRf/READ DATA KV^l^ 
/SPINDLE ROTATION fl 
tHRT/READ DATA (P2)l 
/MRT LCK ERR AMD DATA PROTECTION/ 

/SEEK TIMES / 

'ifMW \^iim w\^.u SEC, 

/APPROX / 

/INNER/ 

/MIDDLE/ 

/OOTER/ 

/EXPECTED/ 

/0O1 C¥C FMD/ 

/OOl C¥L REV/ 



ASSEMBLY ROUTINES 
PZRLDB.PTI 25-0Cf-78 

I?? 

598 
616 



MIC¥11 301(1052) 
13S12 



22-iO¥-78 163 32 P&ei 1-11 



SEQ 0052 




MOfl in 10 fRIES/ 
/ 



XE SEQ (in SEQ C&I.LED):/ 
C IlLES lot SfRO. ILL SEC ASSUMED GOOD. 

1 Ibrsi / 



MD/ 

ID/HDR CRC/OPIS 
ERR / 



ymf G|t ERR / 



i 



?Cd0L0 MO? RETRIEfE DRIV 

— — ""-tSr *■ 



/mun DRV 

/FAIL to R 

/HRITE ABORTED/ 
/ ERR LIMIT EXC 
/ ERROR/ 
-*7><377><377> 



;ld hds afteH 



STATUS 
IIHIT DROPPED/ 



OUT/ 



RESULT SETTIMGS 
.ASCIZ /IS / 
.ASCIZ / SB / 

RESULT COMDITIOMS 



ASSEMBLY ROUTINES 
CZRLDB.PTl 25-0CT-78 




30A(1052) 22-N0V-78 16:32 PAGE 1-12 



SEQ 0053 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
-ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCI" 

.ASC 

.ASC 

.ASC 

.ASC 

.ASC 



.ASCIZ 



.ASC 
.ASC 



.ASCIZ 



.ASCI 

.ASC1_ 

.ASCIZ 

.ASCIZ 

.ASCI- 

.ASC 

.ASC 

.ASC1_ 

.ASCIZ 

.ASCIZ 

.ASCI" 

.ASCIZ 

-ASCIZ 

.ASCIZ 

.ASCIZ 



GLBERR 
ERRl 



/ IN / 
/ OF / 
/STATE 2/ 
/STATE 3/ 

mm i'hs/ 

/500MS/ 
/CYCLE UP/ 
/DATA XFER/ 
/5 SECDS/ 

/%N%T%N%T%T%06%S%T%01%N/ 
/%li%T%0|.%Sl%T%Ql%N/ 

/%n%t%oi%si%t%tIn/ 

/%T%T/ 

/%N%T%T/ 

/%T/ 



ERR2 
ERR3 
ERR4 



/%N%T%TtM/ 
/%N%T%06%S1 



%T%01/ 



/%N%S11%T%S4%T%S4%T%S4%T%S4%T%S2%T/ 

/%N%Tf06%S2%06%S2106%S2%06%S3*03%S2%01%M/ 

/tM%T%06%S2%06%S2%06%S2%06/ 

/%M%T/ 

/%T%01/ 

/%f%03/ 

/%N%S11%T%03%S1%T%03%S1%T%01%S1%T%01/ 

/%N%T%T%D3%S1%T%06%S1%T%06/ 

/tN%Sll%T%D3%Sl%Tl06%Sl%T%06/ 



/%N%S5%06/ 

/%S10%T%M%S11%06%N/ 

/%N%S13%T%S5%T%S4%T%S5%T%N/ 



/%T%S2%D6%S4%D6%S4%D6%S4%D6%N/ 



/%T%S2%D6%S14%p6%S4%D6%M/ 

/%T%S|2%D6%S14%D6%H/ 

/%H%S11%T%03%S1%T%01%S1%T%02/ 



/%T%T%T%01%N/ 

/%H%T/ 

/%M%D2%T/ 

/%N%S1%TID4%T%T%D3%N/ 

/%II%T%D3%T%D31N/ 

/%N%T%T%T/ 



R3 POINTS TO RESULT MESSAGE 
RESULT: (R3) 

R3 POINTS TO RESULT NAWE 
RESULT: (R3) IS 1 SB 

R3 POINTS TO RESULT NAME 
RESULT: (R3) IS SB 1 

R3 POINTS TO RESULT NAME 

R4 POINTS TO RESULT CONDITIONS 



JkSSEIiBL¥ ROfJTIiES MlCfll. 3@IC1052) 22"iOf-?8 

CEiLDB«Pfl 25-0CT»7a 13112 



16S32 PiGE 1-13 



EHRS 
gRR6 
ERR? 

ERRS 

ERR9 

ERRIO 



SEQ 0054 



RESULT I (R3) IS 1 SB (R4) 

i3 PQIiTS fO RESULT MiHg 

rI POpfS TO RESULf COMDITIOMS 

RiSOLfs (R3) IS SB i (R4) 



Rl 

RL 

RSSULf 



ULfS %ll 

_.._f| SflTE ^--„_- .^. _-, 
R3 COVfAXiS lIPBCfgD Sfl 



ptlME DEfERMIMES MHICH ERROR(S) ARE SET AND 
ROR^ IS 1 SB 
SflfS IRRQi RgPORf 




fE 

STAT) SB (R3) 
EPQR 



POSIflQiliG gpQR REPORT 



gR tS CHDIROI) SB (iEiCYL) 

f 

MIME 

(R4-VALUE 1) SB (R5-VALUE 2) 



J ml : 

RS-gAME) I; 



COMPARE ERROR REPORT 

mr^' ' - ■ 



RL , 
RESUl 



COiflfllS TH 
ULTS iORD ( 



ORD NUMBER 



gOD iORD 
3) IS (R4) SB (R5) 



775 



761 0116|0 

ill ^ii^^s 



003067 
171072 





?|0 



014634 



171032 
000001 



lis 



E8DMSe 
10000! 



Llfi 



BGMMSG 



ERRl 

fSTB 

BME 

ISC 

M0¥ 

JSR 

MOf 

MOV 

JSR 

JSR 

Mg¥ 

JSR 



EMT 

ERR2 

IMC 

MO? 

JSR 

MO? 

MOV 

M0¥ 



HQERCT 

ilr!fs(r 

PCjRPfRES 
PC#RPTREM 

CSMSG 

gERRPOIMT 

KI/-XSP) 

PC/RPTOP 

mrt 



;f§Sf IF ERROR COUMTIMG INHIBITED 

Ills - SKIP 

iIlSE BUMP ERROR COUHT 

;SfORE Rl 

>R|PORT OPERATIQIi 

?sil PARAM MUmIER 

;ISSERT MESSAGE ADDRESS POINTER 

IREPORT RESULTS 

IREPORT REMAINDER 

IRESTORE Rl 

)G0 CHECK IF ERROR COUNT EXCEEDED 



;B0MP ERROR COUNT 

? STORE Rl 

;REPDRT OPERATION 

;SET PARAM NUMBER 

; INSERT NAME ADD POINTER 

;SET IS VALUE 



ASSEMBLY ROUflMES 
CZRLDB,PT1 25-0CT-78 

794 011654 004737 

M lili «^^^'' 



MIC¥11 
13:12 



301(1052) 22-NOV-78 16:32 PAGE 1-14 



SEQ 0055 



f 



011666 

011666 104023 



840 
841 



1 OPOP dJ47lf 

s Hw Wi" 

i 5;l02« 505B 




014634 



170764 

urn 




012054 



014634 



023244 
000004 

000001 

mm 

014634 



EMDMSG 
LlOOOl: 



EMDMSG 
L10002: 

B6NNSG 



ENDMSG 
L10003: 



CLR 
JSR 
JSR 
MOV 
JSR 



EMT 

ERR3 

IMC 

MOV 

JSR 

MOV 

MOV 

CLR 

MOV 

JSR 

JSR 

MOV 

JSR 



EMT 

ERR4 

IMC 

MOV 

JSR 

MOV 

MOV 

MOV 

JSR 
JSR 
MOV 
JSR 



EMT 

ERRS 

IMC 

MOV 

JSR 

MOV 

MOV 

CLR 

MOV 

MOV 

JSR 

JSR 

MOV 

JSR 



PCgRP 
PC^CK 



pc#rptres 
pc^rptrem 

ckSrlm 



C$MSG 



gERRPOINf 

ftl,-iSPi 

PC#RPTOP 

Rl)* 

1^(R1H 

C/RPTRES 

PCfRPTREM 

(SP)*,R1 

PC/CKERLM 



CSMSG 

iERRPOINT 
R1/-(SP) 
PC/RPTOP 
t4i(Rl)+ 

fl#(Rl)* 

PC^RPTRES 
PCgRPTREM 

PCcSiRLM 



C$NSG 



8ERRP0INT 

him 

'rI)+ 

CRPfRES 



;SET SB VALUE 
;REPORT RESULTS 
;R£PORT REMAINDER 

;restore Rl 

;GQ CHECK IF ERROR COUNT EXCEEDED 



BUMP ERROR COUNT 

STORE Rl 

REPORT OPERATION 

SET PARAM NUMBER 

INSERT NAME ADD POINTER 

SET IS VALUE 

SET SB VALUE 

REPORT RESULTS 

REPORT REMAINDER 

RESTORE Rl 

GO CHECK IF ERROR COUNT EXCEEDED 



;BUMP ERROR COUNT 

JSTORE Rl 

JREPORT OPERATION 

5SET PARAM NUMBER 

;INSERT NAME ADD POINTER 

?SET IS VALUE 

;SET SB VALUE 

JINSERf ADD OF CONDITION POINTER 

;REPORT RESULTS 

;REP0RT REMAINDER 

^RESTORE Rl 

>G0 CHECK IF ERROR COUNT EXCEEDED 



;BUMP ERROR COUNT 
;STORE Rl 
;REP0RT OPERATION 
;SET PARAM NUMBER 
?INSERT name ADD POINTER 
;SET IS VALUE 
;SET SB VALUE 

^INSERT ADD OF CONDITION POINTER 
>REPORT RESULTS 
;REPORT REMAINDER 
ORE Rl 



)RESTOP_ 
;G0 CHECK 



IF ERROR COUNT EXCEEDED 



ISSEMBLy ROOflMES 
CZRLDB-Pfl 2S-0Cf»78 
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SEQ 0056 



01 

Hill hh, 

D12326 000450 



^10004: 



BGMHSG 



17$S 



000002 



000004 



ooopoo 



9$ J 
10$S 



2$s 



100$S 



mi 

ERR6 

TSfB 

BNE 

IMC 

HO? 

M0¥ 

MOV 

MOV 

JSR 

MOV 

MOV 

CLR 

MO? 



C$MS6 



ERRPOIHT 




t|77761,R3 
"^ETSTIl?,RLDJi(R2 



IfEST If ERROR COOHflHG INHIBITED 

lYES - SKIP 

JeLSE BUMP ERROR COUIff 

jSfORE Rl 

)SfORE R3 

iSfORE r| 

ISfORE R5 

;RIpoRT OPERSTIOM 



;SET PAR&M MOMBER 
|g|f"t.CS 



iSIRf IS VALUE 




liLElR'rfiS Stilus STORAGE 

I 6 It T CS 

lAiO CLEAR ALL BUT FUiCflOM 

h 



CHICK 11 If _WftS gEt_SfAtUS 



US IS tM T-MP, SKIP 

ELSE DO GET STATUS 



000012 



B_ 

BM 

BI 

BME 

MOf 

PRIifB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

BR 



R2) 



|«AIf FOR COflTROLLER READY 



m 

DyMSK,RLCS(R2) 



BiT9,R3 
--fiP3!!l.R3 



i774ifjib 

|liiR,R3 

|IeRB,R3 
IS 



ITEST IF READY 
iVES " SKIP 
jiEsE SET MO DRIVE STATUS BIT 
jIM MESSAGE aORD^AMD^SKIP 
JSTORE STATUS FOR REPORT 

;GET ERROR BITS IM PROPER POSITIOM 

IGET ERROR BITS FROM MP REG 

ICLEAR 08USED BITS 

IGET ERROR BITS FROM CS REG 

{list If'hDR hot FOOMD ERROR 
"""' SKIP 

r HDR 
IVES -_SKIP_ 



lIlit'll^iDR CRC ERR 



8cicERR^R3 

iMolERR«R4 ?SEf OPf ILOME MESSAGE 

lMI2i^fMRSLT^R4;iMtRRS ^REPORT ElROR 
SMEHRS£-(SP) 

f4,-(SP) 

SP,RO 

CSPMTB 

mf^ JSKIP 



ASSEMBLY ROUTINES 
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SEQ 0057 




002466 
002466 



105$; 
107$J 

109$! 
115$: 

118$: 

120$: 

3S! 

4$: 

6$: 
7S: 



15$: 



18$: 



002436 000012 



010407 



MOV 

BR 

BIT 

BNE 

MOV 

BR 

MOV 

BR 

BIT 

BEQ 

MOV 

BR 

BIT 

BEQ 

MOV 

BR 

MOV 

CLR 

BIT 

BME 

TST 

CLC 

ROR 

BNE 

BR 

MOV 

JSR 

BR 

JSR 

TST 

BEQ 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

BIT 

BEQ 

BIT 

BNE 

CLR 

MOV 

MOV 

MOV 

MOV 

CMP 

BEQ 

CMP 

BGT 

PRINTB 

MOV 

MOV, 

MOV 



|MHCRC^R4 

loos 



ihcrcerr/r3 
|mhnf#r4 

|hhIcRC/R4 
OOS 



#DCKERR,R3 

IMDCRC/R4 

lOOS 

«DLTERR#R3 

120$ 

fMDLT^R4 

lOOS 

IBIT15/R5 



NOT DPI 



restbl(r4),(r1) 
pc^rptres 

pLrptrem 

TEMP3 

liSTp^fSTAMES^TfeMPS 
fEMP3£-{SP) 

!STAMES/-(SP) 
FMT17^-(SP) 
Pi-RO 
C$PNTB 
#10, SP 

loCKERRrT-CS 
25$ 

|OPIERR,T,CS 
25$ 

MORECE 
#128. ,R1 

|0BUFF,R5 

|lBUFF^R4 

(R5),(R4) 

19$ 

MaRECE,#10. 

20$ 



;HDR CRC MESSAGE 

JTEST IF HCRC WITH HDR NOT FND 

lYES - SKIP 

;MESSAGE HEADER NOT FOUND 

sHNF AND HCRC MESSAGE 

5SKIP 

jTEST IF DATA CHECK SET/ 

;N0 - SKIP 

;SET MESSAGE DATA CHECK 

sSKIP 

;TEST IF DATA LATE ERROR 

NO — SKIP 
;SET MESSAGE DATA LATE 
J SKIP 

;SET BIT POINTER FOR TEST 
;CLEAR R4 FOR TABLE COUNT 
STEST IF BIT IS SET 
JyES - SKIP TO REPORT 
JELSE BUMP TABLE POINTER 

•SHIFT ifrPOINTER TO NEXT BIT 

SLOOP IF NOT 

jelse report REMAIKDER 

;INSERT NAME ADDRESS 
IREPORT RESULTS 
;get next BIT^_^„ 
Jreport REMAINDER^^^^^^ 
;TEST IF ANY NEW STATUS 
SKIP 



;N0 



JTEST IF DATA CHECK ERROR 

?N0 - SKIP 

;TEST IF OPI SET 

•YES "" SKIP 

5CLEAR COMPARE ERROR COUNT 

JSET COMPARE LENGTH 

JSET WORD COUNT 

JSET GOOD aORD POINTER 

5SET TEST WORD POINTER 

yCHECK WORD 

;GOOD - SKIP 

5TEST IF COMPARE LIMIT REACHED 

;YES - SKIP 



„FRT15«#MW0RD,R3/#RESE3/(R4)/#RESE4,CR5) 

?R5),-tSP) ^ 

|rESE44-(SP) 

(R4)/-tSP) 



# # 



ISSEMBLV ROUfliES 
CIHL0B«PT1 2§"0Cf~78 




301(1052) 22-iQf»78 16132 PIGE 1-17 



SEQ 0058 



oilool 005277 

013010 010146 

965 013012 010346 

966 013014 004737 



167650 
023244 



2S$J 



27SS 



EMQMSG 
LIOOOSS 

BGIMSG 



M0¥ 
M0¥ 
M0¥ 
HOV 

nm 

EMf 

Add 

IHC 

CUP 

IMC 

DEC 

BME 

TSf 

BEQ 

MOf 

PaiNTB 

M0¥ 

MOV 

MOf 

H0¥ 

MOf 

M0¥ 

HOf 

EMT 

ADD 

M0¥ 

H0¥ 

MOV 

MOV 

JSR 



EMDHSG 
L1O006S 



EMf 

ERR8 

INC 

M0¥ 

MOV 

JSR 



iRESE3£-(SP) 
R3#-(SP) 




) 



ills 66^ 
f4.SP 

spS^^rs 

SPS*^R4 

SPUJrR3 

SPl^/Rl 

C^CKERLM 

C$MSG 

gERRPOIMf 

PC^RPTOP 

|N6RW|fJp|)-S' 

PCgKriKtH 

pcckIrlm 

CSHSG 



gERRPOINT 
R1/"-(SP> 
R3/-1SP) 
PC^RPTOP 



;BUHP ERROR COUMTER 
IBUMP POIMTERS 
;B0MP COtllifER 
^DEC LEMGfH COUM? 
>LOQP IF MOf DOME 
?fEi? IF AMY COMPARE ERRORS 
liO - SKIP 
SET CONPARE LEMGfH 



*R1 /DE.I v»unraii& i. 

7^|fCERR^M0RECE^#RESE6^Rl 



iRESfORE RS^ 4^ 3^ 1 



IGO CHECK IF ERROR COUiT EXCEEDED 




IBUMP ERROR 
iSfORE Rl 
I REPORT ~ 
JSET PIR 



wm\ 



COOif 



>|MSER? MAHE lOD POIMTER 

SliSER? IS ¥ALOE 

SB ¥ILUE 

jREPOgf RESULfS 

iRiPORf REMOMDER 

;RESfORE Rl 

;G0 CHECK IF ERROR COUi? EXCEEDED 



;BUNP ERROR COUMT 
;SfORE Rl 
;STORE R3 
JREPORT OPERATIOM 



ASSEMBLY ROUTIMES 
CZRLDB«PT1 25~0CT--78 
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968 

969 

970 

97" 

97 

97 




MACYll 30A(10S2) 
13:12 



22-H0V-78 16132 PAGE 1-18 



01 

011446 
012746 



005 „^ 
010657 
000005 



000014 

010407 
010403 



3$; 



EMDMSG 
L10007S 

BGHMSG 



ENDMSG 
L10O1OI 



M0¥ 
MOV 
MOf 
MD¥ 
CLC 
ROR 
DEC 
BME 
fSf 
MOV 
JSR 
JSR 
MOV 
MOV 
JSR 



EMT 

ERR9 

INC 

MOV 

JSR 

MOV 

MOV 

MOV 

HOV 

JSR 

JSR 

MOV 

JSR 



3c(Rl)* 
MCYL0C,(R1)4 



NESCYL, 



kf,^¥' 



PC^RP 

PC^RPTREM 

PC|,CKERLM 



C$MSG 



gERRPOINT 

PC^RPTOP 

R3,CRl)-9- 
R4^(Rl|+ 

PCRPTRES 
PC>rRPTREH 
(SP)4--R1 

PC^CKERLM 



C$MSG 



fiii§" 




?SET PARAH MOMBER 
;lHSERf SAME IDD POINTER 
;GEf HEADER WORD 
;SET SHIFT COUNT 

;iLIGN CHAR FOR PRINTING 
} AS IS VALUE 

;BUMP PARAH POINTER 
^INSERT SB VALUE 
^REPORT RESULTS 
^REPORT REMAIMDER 

}G0 CHECK IF ERROR COUNT EXCEEDED 



;BUMP ERROR COUNT 

?STORE Rl 

;REPORT OPERATION 

;SET PARAM NUMBER 

;INSERT NAME ADD POINTER 

JSET IS VALUE 

>SET SB VALUE 

;REP0RT RESULTS 

IREPQRT REMAINDER 

^RESTORE Rl 

?G0 CHECK IF ERROR COUNT EXCEEDED 



^1 



;STORE Rl 

ITEST IF 2ND BAD LINE 
lYES - SKIP 
?BUMP ERROR COUNT 
JREPORT OPERATION 
ASADD,RLBAS,#DRVHAM^<B,RLDRV+1> ;REPORT ID 



HRSLT^#MiORD^R3^#RESE3^(R4)^#RESE4^CR5) 



ASSEMBLY ROOflNES 
CZRLDB.Pfl 25-0CT-78 
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SEQ 0060 



1035 013374 000000 

1036 013376 000377 



3$S 



BGiNOO 
B6IIHII 



w 






66MN0D 
B6NSH 



hishih: 



lolimh: 

HILIMW: 



4$t 

nmh 

ERDMOD 



m 



• WORD 
.WORD 



#-CSP) 

«Ti4;-{sp5 



m? 



FH _ _ 



0RD,R3^#RESE3,(R4)/#RESE4/(R5) ;REPORT DATA 



(SP) 



m 



CSMSG 



HPfCODE 



-L$H«/2 



SPfCODE 



.HORD 
• IfORD 



LI 001 3-1. $SH/ 2 



§55. 



IIP?! 



1NP|RE ERROR COUMr 

ERROR COURT BICEEDED 



I^K-ir 



m^. 



SE ADDRESS DEFAOLt 
>„ OEFAULf 
IRITY DEFAOLT 
E MOMBER DEFAULT 
CONTROLLER 



;BIT = 




OSE ALL 
USE ALL 

ijp 



= EXECUTE 



CYLINDERS 

SECTORS 

DRIYE SELECT TEST 



XECUTE HEAD ALIGNMENT 
ROP DRIVE IF NO RESPONSE 
HEAD SELECT SUPPLIED FLAG 
HILIMIT SPECIFIED FLAG 
LO LIMIT SPECIFIED FLAG 
DO MANUAL INTER7ENTI0N 



ASSEMBLY ROUTINES 
CZRLDB.PTl 25-0CT-78 
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SEQ 0061 



013530 



012700 
104050 

103043 



002012 
000040 



headh: 


.NORD 


ft« 


ERLIMV: 
DCL MHS 


.UORD 


:o. 


.NORD 


10, 


ENDSH 






kiSSiS' 






SfSJSicH"*'"" 


19 




.WORD 


1'' 




• NOR) 






.NOR} 


T 




.HOR ) 


Y" 




.NOR 1 


T^ 




-NOR) 


T5 




.NOR) 


T6 




.NOR) 
.NOR 1 


M> 1 




Til 




.NOR 1 




.NOR 1 
.NOR 1 


TO 






.NOR) 


T .2 




• NORO 


T .3 






Tl4 




• NORD 


T15 




.NORD 


?!§ 




.NORD 




.NORD 


TIB 




.NORD 


T19 


ENDMOD 






BGNMOD 


IHITCODE 


B6NINIT 








SETPRI 


IHis?" 




MOV 

EMT 




gsr**- 






C$MANI 



TERROR LIMIT 
;COMPARE ERROR LIMIT 



013372 



003(072 



IS! 



4S: 



BCdMPLETE' 1$ 

BCS IS 

BIC #MITEST!DRSELT! 

CLR SSINDX 
READEF fEF.PNR 
MOV IeF.PWR/RO 



;CHECK IF MANUAL INTERVENTION ALLOWED 

;yES - SKIP 

HDALIGN/MISWIW ?CLKAR ALL MANUAL 

; INTERVENTION FIAGS 
jCLEAR subroutine STACK INDEX 
;P0WER failure 



EMT 
BNCQMPLETI 



fREFG 
45 

UNIT,PNRFLG 

CON 
EF. START 
EF.START/RO 
SREFG 

RESTART 



BCC 4 

MOV L: 

BR P 

READEF 

MOV 

EMT 

BNCOMPLETl 

BCC RESTART 

ON START INITIALIZE TO 



;N0, GO CHECK NEW PASS 

;SET POWER FAIL FLAG 
;G0 SERVICE POWER FAIL 
JCHECK IF START 



;N0 - SKIP 
START AT FIRST DRIVE/ CLEAR INTERNAL 



ISSEHBLY ROUflMES 
CZRLDB.PTl 25-OCT 



002516 
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SEQ 00^2 



RSTRT! 



1$: 



003072 
003072 



3$: 

5$: 
rIstart 



pass cou 

MO? 
CLR 
M0¥ 
MOV 
CLR 
DEC 
BHE 
MOV 
MOV 
MOV 
BIT 
BHE 
MOV 
BIT 
BHE 
CLR 
BR 



i:i6N{?M??8? "lill uP_y!fir..cp«!.i 



pAsmom 

fERRCMf/RO 

fRO)* 
Rl 

#IrRCNT-2/ERRP0I 
f-lrPSETSfi 



;CLEAR pass NUMBER 



i°m 



OR COUNTER STORAGE AREA 



1,HAD0ME 
ICYL^M"- 



IGET A 
;CLEAR 

;LOOP TILL ALL CLEARED 

St ilMIT ERROR PQIMIER , , 

;SEf PARAM SELECT TO INITIAL VULUE 



ISMIi 



P77#HILIMM 
iLOCVL/MlSMia 

LOLIMS 
SETDON 



;PRESET HEAD ALIGM DOHE FLAG 

JtEST if hi LIMIT SET 

JYES - SKIP 

JELSE IMIT HILIMIT 

;TEST IP LO LIMIT SET 

;YES - SKIP 

JELSE CLEAR LO LIMIT 



;CHECK IF RESTART 

;N0 - SKIP 

;TEST IF CONTliiUE 



KXTPAS: 

pasnem: 

SETDOM! 



READEF |EF. RESTART 
MOV IeF. RESTART, RO 
EMT CSREFG 
BCOMPLETE RSTRT 
BCS RSTRT 

ue: 

READEF #EF, CONTINUE 

MOV |EF*COHTIIiUE/RO 

EMT CSREFG 

BCOMPLETE PMCON 

BCS PHCOH 

ON CONTINUE PICK UP UNIT LAST UNDER TEST 

READEF fEF.NEM ?CHECK IF STARTING HEW PASS 

MOV |ef.he«,ro 

EMT CSREFG 
BCOMPLETE PASNEW 
BCS PASNEM 



TST 

BNE 

INC 

MOV 

MOV 

MOV 

INC 

DEC 

ADD 

MOV 

MOV 

GPHARD 

EMT 

MOV 

BCOMPL 

BCS 

TST 

819 

DEC 



DRVCNT 
SETDON 
PASNUM 

#errcnt-2,errp0i 

l$unit,drvcnt 

|-1|.psItnm 

PSETNM 

DRVCNT 

|2,ERRP0INT 

PSETNM,RO 

|RLBAS,R2 

ftO^Rl 



;TEST IF ALL UNITS CHECKED 
;N0 - SKIP 
ELSE BUMP PASS COUNT 
T ;INIT THE ERROR POINTER 
>GET ALL DRIVES 
;SET PARAM SELECT TO INITIAL 
;NEXT SET OF PARAMETERS 
>DOHN COUNT DRIVE TOTAL 
JUPDATE THE ERROR POINTER 
;SET UP TO GET PARAMETERS 



KU#KJ. 

CSGPHRD 
R0,R1 
ETE 
7$ 

PWRFLG 
NXTPAS 
PMRFLG 



7S JSKIP IF GOOD PARAM 

;RECENT POWER FAILURE 
' ^ACCOUNT FOR DRIVE 



ASSEMBLY ROUTINES MACYll 30A(1052) 22-N0y-78 16:32 PAGE 1-22 
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SEQ 0063 




000736 



000340 

._ 014576 

013746 002452 

012746 000003 
104037 

062706 000010 

012700 000000 

Jl3?3i 002450 



003062 
000020 



000340 
014570 



002652 



7$: 



BR 

MOV 

MOV 

TST 

MOV 

SETVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

SETPRI 

MOV 

EMT 

MOV 



NXTPAS 

(R1)*/(R2)+ 

{RlU^(R2)* 

(RlU 

(R1)+/CR2)+ 



JSTORE PARAMETERS CSR 
; VECTOR 

?BUMP PAST PRIORITY 
; DRIVE 



RLVEC,#INTHLR,#340 
#340, -(SP) 
ilNTHLR«-(SP) 
RLVEC,-(SP) 
#3,-(SP) 
CSSVEC 
10, SP 

J/RO 

CSSPRI 

RLBAS,R2 



;SET UP VECTOR 



;SET PRIORITY 

?SET RL BASE ADDRESS POINTER 



013372 



? CHECK 
: ERROR 

TST 

BNE 

BIT 

BEQ 
;CHECK IF UNIBUS aDDRESS 

CLR TRPFLG 

SETVEC 

MOV 



IF DOING AUTO SIZE AND DROP DRIVE IF NOT READY AND 
SETS ON GET STATUS. 
PASNUM ; 

iA0TOSZ,MlSWI« ; 

IS THERE_ 



000010 
000000 
003070 

002454 
000200 
000000 
000001 000000 

000003 000004 

000004 

000200 



000004 

002000 000000 



5$: 



014220 




RRVEC,#TRPHAN,|3 
340, -(SP) 
TRPHAN,-(SP) 



TEST IF PASS 

iin _ '?K T P 

TEST IF DOING AUTO SIZE 

NO - SKIP 

BEFORE HE CHECK DRIVE HEADY 
TRAP OCCURANCE 
40 ?SET TRAP VECTOR 



ERRVEC,-(SP) 

C5§VEC 
pOrSP 
RLCS(R2) 



ACCESS BUS 

TRAP OCCUR?? 

YES, DON'T INVESTIGATE FURTHER 

GET DRIVE NUMBER 

INSERT CONT READY 

LOAD IN DRIVE NUMBER 
JCHECK IF DRIVE IS READY 
u:? /YES - GO DO TEST 

GETSTAT,RLDA(R2) ;ELSE INSERT GET STATUS 
' — -LOAD R5 WITH GET STATUS FUNCTION 

CLEAR CONTROLLER READY 

LOAD CS REG 

WAIT 4 MS 



TRPFLG 

RLDRV,R5 
CRDYMSK,R5 
5,RLCS(R2S > 
DRDYMSK,RLCS(R2) 



4,R5 
CRDYMSK,R5 
5,RLCS(R2) 
4 



4,R0 

SWTM 
#0PIERR,RLCS(R2); 
20$ 

ERRVEC 
ERRVEC,RO 
CSCVEC 
#FMt24,#DRVNAV 



TEST IF OPI SET 
NO - SKIP 



&SSEHBLY ROUflMES 
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SEQ 0064 







0000 



000006 



mm 



4334 104044 

\ ifi ?*^^^« 

65 

i^ 014344 005737 

- 014350 001434 



014430 



Sl«i5 



000014 

010643 
000001 



000004 
003064 



002652 



003072 




012746 

010600 
062706 



005673 



10$J 



M0¥ 

MOf 

H0¥ 

MOf 

EMT 

&DD 

PRIMfF 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

MOf 

MOV 

BMf 



|2^«CSP) 



SPHtF 
rfif5^#BISIDD^RLBIIS,#DRyi&M^<B^RLDRV4l> 



RLDRf4-l^(SP) 
|Blsl65j5?ip) 



20SS 



22S: 
;cfiE 

4$: 



000000 9$: 




?DROP DRIVE 



ECK IF POWER FAILORE W&If IS MEBDED 



fSf 
BEQ 

MOV 
BIS 

MO? 
MOV 
Bit 

BME 

WAITMS 

MOV 

EMf 

DEC 

BNE 

PRIMTF 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 



PMRFLG 
8$ 



HEEDED??? 
IHO, SKIP 



RLDRV#R5 ^ 
|DR5fMiK,RLCS(R2) 



lORIVE SELECT 
|SE? CRDY 
ISELECT DRIVE 



Rl 
fpM' 



RO 



_ JT24,#«0PMR 
MOPiR;-(SP) 

--■ '4,.isp5 



SIIT? SECOiD TIMER 
IDRIVE OP YE 
>YBS START TEST 

liAIT A SECOND 

; SIXTY GOME BY 
;!fO 



|FMT24^-( 

csNtf 

#6,SP 



ASSEMBLY RODflNES 
CZRLDB.PTl 25-0CT-78 
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SEQ 0065 



003070 



BR 



8$J 

EiOINIT 
L10014: 

EMDMOD 

BGWMOD 
BGMCLM 



000000 2$: 

OOOOOQ 
000000 

3$: 

5SS 

7$: 



ENDCLN 
L10015S 



BGNDD 



EHDDO 
L10016! 



EMDMOD 
BGNMOD 



10$ 



C$I!IIT 



SETVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

SETPRI 

MOV 

EMT 

BIT 

BEQ 

BIS 

BIT 

BNE 

WAITMS 

MOV 

EMT 

CLRVEC 

MOV 

EMT 

TST 

BEQ 

DEC 

CLRVEC 

MOV 

EMT 



EMT 



ERRVEC,#TRPHAH^#340 

CSSVEC 
#10, SP 



n 



;SET PRORITY TO 7 



|7,R0 

||rS5SsK,RLCS(R2)^^ ^^^^,TESt^IF^CO;TROLLER RE.DY 

MfiikJi^^i^R^r" ""If^grSPoRIVE BUSY 
SS ;N0_- SKIP 



|3,R0 
ClllTM 

RLvicfRO 
CS.CVEC 



;N0 

>»AIT 300 MS 



IRELEASE VEC 



?SRFLG 

pIrflg 

ERRVEC 

ERRVECRO 

CSCVEC 



cscleak 



;PWR 



FAIL SET 

;no 



NOP 

EMT C$DU 

GLBSOB 

IMC TRPFL 
RTI 



ISSEHBLf RO0fIiES 
CIiiDB«Pfl 25-0Cf«78 



014576 



13512 
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m 



3702 
000002 



tt44 104020 



. 104044 
2 000207 



241 014774 016237 



002450 




002430 



BQMSm 
I 



Lie 



166020 013402 CIERLM^ 



000000 002466 



1$: 

Ieidrl: 



SEQ 0066 



mih 



liilRROPT HIMDLER« 
iBOSTMAIf 

Iht 

MOV 
MOV 
MQ¥ 

MOW 
MOV 
MO? 




ABORTS Mllf TIMER AMD STORES ALL RLll REGS 
ISTORE RL REGISTERS 



) 



>$et oohe flsg 
{restore — 



RE R2 



Rfl 



LIHI 
DRI¥ 

fl 



ERRO 
DROP: 

si;; 

IMLOOP 

EMt C$IMLP 

BCOMPLEfE 



PRiMTF 

MOf 

N0¥ 

HO? 

my 



CHECKIMG ROOflME 



Poi§?JggL^S8'* ""'^^8 



"|M0 - SkIi 
;CHECK If 



TEST IF ERROR LIMIT EXCEEDED 
IM ERROR LOOP 



MOf 

EMT 

ADD 

PRIMTF 

CLR 

BISB 

MQ¥ 

MOf 

MOf 

MOV 

MOf 

MOf 

BMT 

piliTF 

MOf 

MOf 

MOf 

EMT 

ADD 

DOOU 

MOf 

EMT 

DOCLM 

EMT 

RTS 

READ 
HO? 



Mm 

csNtf 



|¥ES - SKIP 



UNIMEX ERS 




ASADD^RLBAS,#DRfMAM,<B^RLDR¥*l> 



;DROP DRIfE 
;Ga TO CLEAM OP 



AMD STORE ALL RLll 
RLCSR(R2)^T,CS 



REGISTERS 
;GET CS REG 
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015002 016237 000002 002470 
OISOIO 016237 000004 002472 

Biigii mil} """"" °""' 




UtP' 



mm 



000000 



000002 
002466 



mm 

014774 
002430 

006013 
002000 

006032 000002 

000003 

000200 000000 

8o6115 000002 
002430 



062 000002 



!426 
»067 
!436 



1550 

003 002550 



II ilP^^ o8?013 002550 

'" 013746 002^- 

§11*37 000 

000404 

013746 002550 

0050|7 002550 

043703 002424 
000004 



mi 



iAITIN: 



l$s 






3$! 

5$S 



fSTIMT: 

6statr: 

GSTATCS 

gstat: 

GSTATGS 



MOV 
MOV 
MOV 
RTS 

SAIT FOR 
MOV I 

CLR ; 

BIT \ 
BEQ 
JSR 
TST 

BIT 

BE 

MO'- 

RTS 

MAITMS 

MOV 

EMT 

BIT 

BNE 

JSR 

MOV 

BR 

TST 

BHE 

JSR 

MOV 

BR 



RLBA 
RLDA 
RLMP 
PC 



(R2),T, 



SEQ 0067 



;GET bus ADDRESS REG 

>get disk address 
;get multi-porpose reg 
;returm 



CONTROLLER TIMEOUT TO FORCE INTERRUPT ROUTINE 
--■ '--- ;MAKE room FOR ERROR POINTER 
JCLEAR FOR POINTER 



CRDYMSK^RL 



PC^READRL 

DONE 



S P 



T0SL0S£2(SP) 
OPIERR^T<,CS 

DRRES^2(SP) 



I 



j,R0 
i&TM 
RDYMSK,RLCS(R2) 



^test if controller ready 
inc - skip to wait 
;read all rl regs 
;test if interrupt occurred 

SNO - GO set no INTERRDPT ERR FLAG 

)ELSE SET TO SLOM ERROR POINTER 

;TEST if OPI SET 

;N0 - SKIP 

JSET MESSAGE FOR NO DRIVE RESPONSE 

SRETURH 

;WAIT 300 MS FOR TIMEOUT 



PC^READRL 
|MC0NHNG,2(SP) 



STEST IF READY NOW 
SKIP 



SET 



C#READKL 
MfiOIHT,2(SP) 



YES _ 

READ RL REGS 

SET MESSAGE FOR CONTROLLER HUNG 

SKIP 

ELSE CHECK IF INTERRUPT OCCURRED 

YES - SKIP TO SET TO SLOW 

READ RL REGS 

ELSE SET NO INTERRUPT FLAG 

GO TO RETURN 



OPERATION AND TEST INITIALIZE ROUTINE 

;CLEAR OPERATION FLAGS 



CLR 
CLRB 
CLR 
RTS 



OPFLAG 
HOERCT 
MORECE 
PC 



PRESET INHIBIT ERROR COUNTING 
;RESET more compare ERRORS 



GET STATUS AND GET STATUS WITH RESET ROUTINE 
TEMP4,-(SP) JSTORE TEMP4 
|GETSfATlDRSET^TEMP4 
GSTATG 



000002 002440 



MOV 

MOV 

BR 

MOV 

MOV 

BR 

MOV 

CLR 

MOV 

py 

TST 
MOV 
SUB 
MOV 
MOV 
MOV 
MOV 



;SET FOR RESET 



TEMP4£-(SP1 
#GETSTAT,TEMP4 



TEMP4 
R3 ' 
SS 



-(SP) 



(R3U 

4(SP),SUBSTK(R3) 

#4^SUBSTK(R3) 

R3,SSINDX 

RO#-(SP) 

R1,-(SP) 

#2,ERRSWI 



;STORE TEMP4 
JSET FOR NO RESET 

;STORE TEMP4 

>SET FOR SAVE L. AND T- REGS 

;STORE R3 

;GET SUBROUTINE INDEX 

;bump it for next entry 
;insert this call 
^adjust it to calling location 
;store it back 
jstore ro 
;store ri 

;SET for no error RETURN 
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SEQ 0068 




1340 

Ml 



m\ 




040000 002426 
040000 002466 51$: 

000001 
010201 



002550 



000004 
002466 



000003 002462 
002550 002462 



turn 
mm 



11$: 
8$: 



5S: 
6$: 



002456 
002456 
002456 

mm 



000001 
002430 
002474 002502 



ITEST ir DRIVE RESET 
110 - SKIP 
ifESf IF DRIVE ERROR SET 
SKIP 



¥ERR,RLCS(R2) ifESf 

5«Sli for" 300 MS FOR DRIVE TO SETTLE 



Bit fDRSET/TEMP4 

Is 

3/RO 

iMTM 
fSO.^Rl 
PC/GSTAT 

|DRDyMSK/f«CS 

|SoSTaT,T,MP 

#SPDSTJlf I HCESf ilT! MDlSTAf ^f ,MP 



|ll^LDWf#OPFLilG 



}MpDEF,R3 
9u01.#;erri 
Iercode 

10001 
ERRl 

l|ETSTilt,L.DA 
tImP4#L.DA 



DONE 
RLDRVfL.CS 



cs 



4$: 



•DA,RLDACR2) 
L.CS/RLCSR(R2) 



t.mp,t«stat 



;SEf M&IT FOR 5 SEC 
;GE? DRIVE STATDS 

?TEST IF DRIVE READY 

;YES - GO DO CLEAR 

JeLSE TEST IF HEADS ODT 

IVES - BYPASS RELOAD WAIT FLAG SETTING 

lmdestat^f«mp jtest if drive has error 
;that caused heads to 

lUNLOAD 

___ iif WAIT FLAG 
>|K|P TO CLEAR 



IMO 
7 ELSE 



ir_DRI¥E ERROR MOM 

GET ERROR, RDY# OR HO 



IfESf IF DRIVE ERROR 



;dec wait CgOiTER 
lIF NOT DOii, LOOP 

{message for urdefined state 



ITEST IF SAVE REGISTERS 

;liO SKIP 

;SET SAVE COOHT 

;SET ADDRESS OF FIRST SAVE 

;POT REG ON STACK 

;PEC COUMT 

;LQQP ONTIL ALL SAVED 

|S|| FOR GET STATUS 

flMSERT PRESET FOR STATUS 

;CLEAR INTERRUPT FLAG 
;SET UP TO GET STATUS 
JCLEAR FOR DRIVE 4-7 SPEC 



;L0A0 RL REGS 
ILOAD CS REG 
;liAIT 100 US FOR 



INTERRUPT 



JCHECK IF INTERRUPT OCCURRED 

;N0 - SKIP 

;STORE HP REGISTER 
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SEQ 0069 




1385 
1383 
1384 
1385 
1386 



mm miu 

040000 002426 

001130 

000001 000000 

000001 

015226 
010246 



000012 

015226 

100000 002466 

001000 002474 

006161 

040000 002466 



006202 
015026 



002440 
002550 



002456 
000004 



13S: 



PQJ^7^ 



000002 002424 



12$: 



7$: 



9$: 
1$: 
2$: 

\tv 

20$: 
22$: 



t*C<STAMSK>,T.ST 
IdRSET/L.DA 



i^RELDWT/OPFLAG 

i§0.,Rl 
;DRDYfiSK#RLCS(R2 




AT ICLEAR ALL BUT STATE 
;fEST IF RESET MAS SPECIFIED 



>iO - SKIP TO EXIT 
-TEST ■ 



SET 



;TEST IF RELOAD WAIT FLAG 
iUO — SKIP 

ISET MAIT COUNT FOR 60 SECONDS 
) JTEST IF DRIVE NOM READY 
..«- SKIP 
AIT 



BIT 

BEQ 

ERRHRD 

TRAP 

.WORD 

• WORD 

BR 

MOV 

BR 

JSR 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

CLR 

TST 

BNE 

MOV 

MOV 

MOV 

DEC 

BNE 

SUB 



#MRLFAL/R3 
10003, ^^ERRl 



|ANYERR,T.CS 
■IcSTAT/T.MP 
#VCNRST,R3 
|DRVERR,T.CS 

14S 
fDNXERR,R3 

pLwaitin 

(SP)*/R3 
10002. £tERRl 

ERRl 

ERRSWI 

TEMP4 

22$ 

#L-CS,R3 

i^cRl 

(SP)+,(R3)* 



;YES _ 
SCALL MA 



m 



ssindx 



;DEC count 
;loop if not 
;get drive status 

JeRROR RETURN 

?SET RESULT MESSAGE POINTER 



?GD TO EXIT 
;WAIT FOR IMS 

;GET DRIVE STATUS 

ITEST IF ANY ERROR 

?N0 - SKIP 

ICHECK IF VOLUME CHECK RESET 

?YES SKIP 

;SET REASON POINTER 

?EXIT 

ICHECK IF DRIVE ERROR 

;N0 - SKIP 



;exit 

;set reason pointer 

jiait for interrupt 

ISTORE REASON POINTER FOR RETURN 



ICLEAR FOR ERROR RETURN 

ITEST IF REGISTERS WERE SAVED 

|N0 - SKIP 

ISET POINTER TO RESTORE 

ISET REGISTER COUNT 

IRESTORE REG 

•DEC COUNT 

ILOOP UNTIL ALL ARE RESTORED 

IREMOVE ENTRY FROM SUBROUT STACK 
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SEQ 0070 




002524 
000001 



99$S 



002542 KSEEKf; 



iseek: 

XSEEKll 



nw- 



60 



002440 



mm 

002524 
002520 
002524 



002532 



000377 
002532 



3$S 



6$; 



im 



M0¥ 
MOV 
MOV 

my 

fSf 
BEQ 
&0D 
RfS 



SEEK 

88" 

CLR 
MO? 
NOV 
TSf 
HQ¥ 
SOB 
MOf 
MOV 
M0¥ 
MOV 
MOV 
CLR 

JSR 
65S 
MOV 
CMP 
BLE 
SOB 
MOV 
MOV 

?§T 

BPL 

MEG 

MOV 

CLR 

MOV 

SUB 

BPL 

MOV 

MEG 

BR 

CLR 

MOV 

fST 

BEQ 

CMP 

BNE 

NOV 



ISPU^Rl 
SPJ*^RO 
SPU,U3 
rrsm! 

ERRSiI/r(SP) 
PC- 
-SP)^(SP) 



li 



ROUflME 



fikiP 



R3«-(SP) 
SSIMDX/R3 



2(SP)£SUBSTK(R3) 

#4^S0iSTK(R3> 

R3/SSIMDX 




PC/GETPOS 

CORCYL/OLDCYL 
MEMCYL,#255. 

ilsS.^NEHCYL 

ReHCYL/DIFAUG 

#255,^NEBCYL 

HESCYL 

6S 

HEMCYL 

HEHCYL/DIFAOG 

MEMCYL 

C0RCYL#R5 

iEBCYL^RS 

iLoESSGH 

14S 

DESSGM 
RS^DESDIF 
DIFAOG 

lis 

HiHCYL,#255. 
17$ 

#1/DESSGM 



^RESTORE Rl 

^RESTORE R3 

;RESTORE fEMP4 

;fESf IF ERROR RETUR8 

;YES - SKIP 

JIDD IN ERROR REfURM 

}SEf ERROR RETORM ADDRESS 



;SET SPECIAL TIMIiG SEEK FLAG 

;CLEAR SPECIAL SEEK FOR TIMIIIG FLAG 
;SfORE R3 

iGEf SUBRODTIiE IMDEX 
JBOMP If FOR iEXf EMTRY 
llMSERT tills CALL 

;Idjost it to callimg locatiom 

jSfORE If BACK 



RROR RE1 
EiCE AOC 



Oil 
HEHT 



(FOR SEEKING 



; STORE REG 

muhim 

? PAST GUARD BAWD) 
IGEf PRESEHT POSITIOM 

;M0VE CURREHf TO OLD CYLIMDER 

;TESf IF MEM IS GREATER THAM 255 

;MD - SKIP 

;ELSE SUBTRACT 255, 

>STORE DIFFEREHCE AS AUGMENT 

;SET MEWCYL AS 255. 

JSKIP 

?TEST IF MEHCYL HAS MEGAflVE VALUE 

IMO - SKIP 

;else make if positive 
;and store it as augment 
)hm set nehcyl to o 



;SUB {IE»C¥L FROM CORCYL 



1 



;IF DIFF IS positive - SKIP(RE¥ SEEK) 
>ELSE SET SIGM FOR FQRIiARD 



lSO|?PmS-Sp|EBEig|^Aip MEH CYLIMDER 

. _S P 

;ELSE SET SIG 

;MAKE DirFERENC'E t>OSlf!VE 

JSKIP 

;SET SIGM FOR REVERSE 

JSTORE DIFFEREMCE 

IIS THERE A DIFFEREHCE AUGMENT 

;M0 - SKIP 

;CHECK IF HEM CYL IS 255a 

;M0 - SKIP 

lELSE FORCE SIGN FOR FORWARD 

idllNER GUARD BAND) 
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SEQ 0071 



1444 
1445 



016320 063737 002520 002530 




17S 
18$ 



21$: 



23$: 
25$: 



30$: 



002440 
002440 



32$: 



002440 

000002 002424 65$: 



ADO 

MOV 

HOV 

BIS 

BIC 

CLR 

MOV 

MOV 

ASL 

DEC 

BME 

fST 

BEQ 

BIS 

TST 

BEQ 

BIS 

BIS 

JSR 

65S 

CLR 

TST 

BNE 

MOV 

MOV 

MOV 

MAITUS 

MOV 

EMT 

TST 

BNE 

JSR 

HOV 

ERRHRD 

TRAP 

,HORD 

.MORD 

CLR 

l§T 

BPL 

ERRHRD 

TRAP 

.iORD 

»MORD 

CLR 

SUB 

HOV 

MOV 

MOV 

MOV 

TST 

BEQ 

ADD 

RTS 



DIFAUG/DESDIF ;ADD AMY AUGMENT TO DIFFEREMCE 



ISEEK'fRS) 

RLDRV,(R5i 

#BITl8,(R5)+ 

(R5)* 

DESDIF,(R5) 

#7,R0 

Ip) 

RO 

21$ 

DESSGN 

23$ 

#DIRBIT,(R5) 

OESHD 

25$ 

|hdsel,(R5) 

lMBSET0,(R5)-i. 
PCRDYCHK 

DONE 

TEMPI 

65$ 

-(R5),RLDA(R2 
R5),RLBA 
R5),RLCS 
0» 



m 



iO.,RO 
JSWTU 
DONE 
32$ 

PC^WAITIN 
(SP)-^,R3 
10005«,,ERR1 

tIercode 

10005 

ERRl 

ERRSWI 

65$ 

T-CS 

65 S 

10006. ,,ERR6 

TSERCODE 

10006 

ERR6 

ERRS^I 

f2£SSINDX 

(SPU^RI 

(SPU/RO 

(SPi+SR3 

ERRSai 

99$ 

ERRSMI,(SP) 

PC 



;GET L REG ADDRESS 

?SET FOR SEEK 

lINSERT DRIVE NUMBER 

;CLEAR IF DRIVE 4 - 7 SPE 

;CLEAR BOS ADDRESS 

;LOAD DIFFERENCE 

JSET TO SHIFT DIFFERENCE 



JLODP UNTIL ALIGNED 

;TEST SIGN 

;SKIP IF 

JELSE INSERT SIGN 

ITEST IF HEAD 

;yes - SKIP 
;else set head bit 
jinsert marker bit 
?check if drive ready 

jclear interrupt flag 

icheck if special seek flag set 

;YES - SKIP, DO NOT START SEEK 
ILOAD RL REGISTERS 



JTEST IF INTERRUPT DONE 
IVES - SKIP 

?G0 WAIT FOR INTERRUPT 
IGET RESULT MESSAGE POINTER 



;CLEAR FOR ERROR ERROR RETURN 

ITEST IF ANY ERROR 
?N0 - SKIP 



ICLEAR FOR ERROR ERROR RETURN 
IREMOVE ENTRY FROM SUBROUT STACK 
IRESTQRE REGISTER 



JRESTORE R3 

;TEST IF ERROR RETURN 

;YES - SKIP 

}km IN ERROR RETURN 
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SEQ 0072 



99$ S 



002424 



MOV 
RTS 



POSHDS! 



B6MSEG 
1$S 



5$: 



mm """*" 

000012 



021116 

002526 002524 

017454 

mm """' 

002524 

002524 
016070 

005670 
020650 

002466 



002440 

021116 10$: 

002526 002524 
000012 14$: 



n 



SP)#(SP) 



POSIflOM HEADS RODflHE- 
fg„C¥LIHDBR SPECIFIED I 

ssIn 



M0¥ 
MOf 
tST 
MOf 
SUB 
M0¥ 
HOV 
MOf 
MOV 

MOV 



SPECI 

SSlMDX/is 
(R3i^ 
2(SP)4S0BSTK(R3 
|4, S0|sfK(R3) 

R3;-(SP 



IHDX 



#10»#R4 



EMf CSBSEG 

IMLQOP 

EMf CSIMLP 

BHCOHPLETE 



BCC 

JSR 

60$ 

CMP 

BME 

JSR 

BR 

MO? 

CMP 

BEQ 

BGf 

IMC 

BR 

DEC 

JSR 

m 

JSR 

60$ 

fST 

BPL 

ERRHRD 

TRAP 

.WORD 

.tfORD 

CLR 

BR 

JSR 

60S 

CMP 

BME 

MOV 

BR 



5$ 



PC^GETPOS 

CORCVL^iEMCfL 

PC,0NSH1P 

CURC¥L,0LDCYL 
C0RC¥L,R5 

7^ 
HEHCYL 

MEMCVL 
PC#XSEEK 

#3000. ,R1 
PC/RDyS " 



I IT 



T«CS 



u08«£#ERR6 
^ERCODE 
lOOOS 
ERR6 
ERRSMI 
60$ 
PC^GETPOS 

CURCYL#HEBCYL 

il0.,R4 



iSEf ERROR REfURH ADDRESS 



POSIflOMS HEADS USIMG 1 CYLIIIDER SEEKS 
M R5 BY THE CALLING ROOflilE 

;SAVE REGS 

}gET SUBROOTIiE INDEX 

IBUHP If FOR MEIT ENTRY 
) JIBSERT THIS CALL 

;IdJDST If to CALLIHG LQCAtlOH 

JSTORE It BACK 



iSEt FOR MO ERROR REtURN 
jGEt CORREMf POSITION 

;SEf RETRY COUMT 



ICHECK IF IM ERROR LOOP 

}m - SKIP 

>ELSE GET position 

KHECK IF AT IHTENDED POSITION 

iMO - SKIP 

JSSAP OLDCYL AND HEHCYL 

;IN^H0T LOOPING, STORE CURCYL AS OLDCYL 

{check IF HDS AT FINAL POSITION 

lYES - GO TO EXIT 

jlF CURCYL. > FINAL POSITION - SKIP 

;else bump memcyl (move hds in) 

SSKIP 

IDEC memcyl (MOVE HDS OUT) 
;D0 SEEK 

;SET MAIf COUNT 300 MS 
JmAIT for DRIVE READY 

;fEST IF ANY ERROR 
|M0 - SKIP 



>CLEAR FOR ERROR ERROR RETURN 

;get position 

;check if arrived at desired place 

;N0 - SKIP 

;else imit retry count 
;g0 do next seek 
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SEQ 0073 



002524 



000001 



007543 
010471 



15$: 



16$: 



002524 17$: 



20S: 
6o|: 

E8DSEG 
10000$: 

002424 PH65$: 



002260 
002260 



99$: 

; 

6dychk: 



002466 



TST 

BNE 

CMP 

BGT 

DEC 

BHE 

MOV 

ERRHRD 

TRAP 

.WORD 

.^ORD 

CLR 

BR 

CMP 

BLT 

BR 



EMT 
SUB 
MOV 
MOV 
MOV 
TST 
BEQ 
ADD 
RTS 
MOV 
RTS 



1$: 



DESSGN 

17$ 

CURCYL^NEWCYL 

14$ 

R4 

tHDM0VF^R3 

10009. /^tERRI 

TSERCODE 

10009 

ERRl 

ERRS^I 

60$ 

CURCYL^HEMCYL 

14$ 

16$ 



CSESEG 
PfSSINDX 
(SP)+/R4 
(SP)*,RO 
(SP)*4R3 
ERRSai 
99$ 

ERRSHI,(SP) 
PC 
-SP),(SP) 



IJ 



DRIVE READY TEST ROUTINE 
500MS FOR_ READY. TO SET 



MOV 

MOV 

TST 

MOV 

SUB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 

4| 

BIT 

BNE 

MAITUS 

MOV 

EMT 

DEC 

BNE 

MOV 

MOV 



ss ■ 



ASP).£SUBSTK^R3) 



iNDX/R3 
.3)* 

(SPi^SUB _ ^ 
4,S0BSTK(R35 
* —-'IDX 

• A 

II^eRrssi 

ISOOO.^Rl 
PCGSTAT 

|DRDYMSK,T.CS 

!f 



ITEST IF GOING IN 

lYES - SKIP 

ICHECK IF HEADS DID NOT MOVE IN 

;YES - SKIP 

?DEC RETRY COUNT 

5dO another SEEK IF NOT 

?ELSE SET RESULT MESSAGE POINTER 



;CLEAR FOR ERROR ERROR RETURN 

;HDS should MOVE OUT, CHK THEY DID 

;YES - SKIP 

;ELSE go DEC AND RETRY 



JREMOVE ENTRY FROM SUBROUT STACK 
;REST0RE registers 

JTEST IF ERROR RETURN 

;YES - SKIP 

;ADD IN ERROR RETURN 

>SET ERROR RETURN ADDRESS 

CHECKS DEIVE IS READY- IF NOT, WAIT 

; STORE REGS 

;GET SUBROUTINE INDEX 

jBUMP it for NEXT ENTRY 

JIHSERT THIS CALL 
^ADJUST IT TO CALLING LOCATION 
;STORE IT BACK 



,R0 
WTU 



#HDRDY#R3 
#C500MS,R4 



;SET FOR NO ERROR RETURN 
;SET MAIl COUNT 
JGET DRIVE STATUS 

JTEST IF DRIVE READY 
?YES - EXIT 



;DEC HAIT COUNT 

;LOOP IF NOT 

;SET RESULT MESSAGE POINTER 

?SET CONDITION MESSAGE POINTER 



ASSEMBLY ROUTINES 
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1650 




. 023431 

8 017344 0t260_ 

l^t m\ mi 

Ml iil? ml 

.674 017366 000207 
677 

ill nm mm 

683 017412 000207 

,-,^ 017424 00S737 

06 017430 001006 

m mm mm 

'" 000207 



HACYll 
13S12 
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10010. ^^ERR5 
fSERCODE 



000001 002466 
000001 

100000 002466 3$: 



4$: 

51: 




002440 
002440 
000000 



mm 

013400 



010000 
002534 



693 017444 009207 
"4 01744" "^-^- 

698 017454 010046 



_694 017446 
. |95 017452 

:6" 



013372 
002534 



013372 
002534 



99$: 

; 

JhOSHD! 



IS: 
} 

Imaphd: 



2I: 

6MSl!iAP: 



0010 
_RR5 

PC^G§Tif 

pRDYMSK^t.CS 




11»^«ERR6 
RCODE 

ERR6 
-^RRCHT 
RRSUI 




SEQ 0074 



) 



;SEf S&IT COUiT FOR 5 SECOMDS 
?GEf DRIfE StUTUS 

;fESt IF DRIVE READY 



;jS|f^-_s!ciP 



FOR lOOMS 



;dec wait coumter 

;LaOP OMfIL TIME DOME 
>fESf IF AMYERR SET 
;liO - SKIP 
-""""""• ERRORS 



lESf IF 
,M0 - SKIP 
; REPORT ALL 



;REDUCE ERROR COURT FOR DUAL ERRORS 
;CLEAR FOR ERROR RETURN 
lIlHQVE ENTRY FROM SUBROUT STACK 
^RESfORE REGS 



JTEST IF ERROR RETURN 

;YES - SKIP 

;ADD IN ERROR RETURN 



?SE? ERROR RETURN ADDRESS 



CHOSE HEAD ROUTINE. PICKS HEAD 
SELECTED BY SOFTWARE PARAMETER 



UNLESS SPECIFIC HEAD IS 



CLR 
BIT 
BEQ 
MOV 
RTS 



DESHD 



11 



EADLM^MISMIH 
ADS/DESHD 



;CLEAR TO HEAD 

;TEST IF HEAD SPECIFIED 

?N0 - -"'" 

;INSER 



I SPECIFIED HEAD 



SMAP HEAD ROUTINE. CHANGES SELECTED HEAD TO HEAD 1 

UNLESS HEAD. 0. SPECIFICALLY SELECTED BY SOFTWARE PARAMETER, 



BIT 
BNE 
TST 
BNE 
MOV 
ADD 
RTS 
MOV 
RTS 



HEADLM^MISMIW ;fEST IF HEAD SPECIFIED 
JYES - TAKE ABORT EXIT 
>TEST IF HEAD ONE USED 
;YES - TAKE ABORT EXIT 

;else set for head one 

jbump past abort return 

;return 

;get abort destination 



ti, DESHD 
g(SP),(SP) 



SWAP OLD CYLINDER AND NEH CYLINDER ROUTINE- 
MOV RO#-(SP) >STORE RO 



ASSEMBLY ROUTINES 
CZRLDB.PTl 25-OCT-7a 




001007 
012703 



MACYll 30A<1052) 
13512 

002522 

002524 002522 



22-N0V-78 16:32 PAGE 1-34 



000002 
000004 
002424 



000002 
002550 

002466 



SEQ 0075 



MOV 
MOV 
MOV 
MOV 
RTS 



OLDCYL^RO 
NEWCYL,OLDCYL 
RO^NEWCYL 
^S^)*,RO 



;move old to RO 
;move new to old 
;put old in new 
;restqre ro 



BAD SECTOR FILES VALID CHECK ROUTINE. CHECKS IF BAD SECTOR 
FILES HAVE.BEEN. READ. AND STORED. IF NOT^ REPORT AND FORCE 



6kBSVD! 



FORCE FILES TO LOOK LIKE ALL SECTORS 



BSFVAL 

#fmt9£pshstr 
|bsnstr,-(sp) 
|fmt9.-(sp) 

sp,ro 
cspntf 



;test if bad 
;yes - exit 

;REPORT 



OK. 
SECTORS 



IfaIL 



ftPRVNAM,-(SI 



#BASADD,RLBAS,#DRVNAM^<B/RLDRV-H> 



RLDRV 



r(SP 



RLBAS,-lSP) 
'3ADD,-(S 

i5/-(SP) 



h 



ttBASADD,-(SP) 
IEMT5,-(SP) 



003076 
003272 



000001 002550 
002550 



5$: 

Jrdhdc: 

xrdhd: 
xrdhdg: 



002260 
002260 



SP^RO 
CSPNTF 
P4£SP 
TF Mmz 

|FMT3e-(SP) 
|l,-{SP) 
SP,RO 
CSPNTF 

!4^SP 
-I^SBSFIL 
-1,FBSFIL 

headers routine. 

#1^TEMP4 

jcrdhdg 

TEMP4 

R3,-(SP) 

SSINDX,R3 

2(SP),SUBSTKI 

tt4,SUBSTK(R3: 

R3/SSINDX 

R0,-(SP.* 

R1/-(SP 

R4^-(SP 



SINDX 

(SP) 

(SP) 

LSP) 

RRSWI 



#L.MP+2,R3 



;F0RCE files to no ENTRIES 



;SET FLAG TO BYPASS REG STORAGE 
?G0 DO IT 

;SET FLAG TO SAVE T. AMD L. REGS 
?STORE REGISTERS 
;GET SUBROUTINE INDEX 
;BUMP IT FOR NEXT ENTRY 
R3) JINSERT THIS CALL 

;ADJUST it to CALLING LOCATION 
;STORE IT BACK 



;SET FOR NO ERROR RETURN 
;TEST IF REGISTERS TO BE SAVED 
>N0 - SKIP 
?SET POINTER FOR REGS 



ASSEMBLY ROOflMES 
CERLOB.Ptl 25-OC?-78 



H&C¥il 30i(1052) 22 
13112 




000004 



1$S 



2S! 



-iOf-78 16S32 PIGE 1-35 

^ffilL-CSP) 
PC/RDYCHK 



SEQ 0076 



il 



3$S 



000012 
002430 
000001 002466 5$S 

mm 4$: 

000001 002466 
002440 

11$: 
010522 



002466 



mil 



m 



476 
---006 
000006 

015026 



10$: 



12$: 



14$l 




{sAfE REgIsTER 
OOi" 



mm 



¥E RE 



ARE 
AD¥ 



SAVED 



.8QR0 
.ilORD 
BR 
MOV 

MOV 
MOV 
BR 
JSR 



uunb 
'|DHEAD^(R1)* 



DtDYMSK,?.CS 

17.££ERR5 
RCODE 



DRDYMS1C,T.CS 
lisHI 



:RR5 
RCODE 

RRJ 

f.CS 

10016. ££ERR6 
TSERCODE 

mi' 

60$ 

tHDWRD2,Rl ^^ 

RLMP(R2)#(R1)* 

RLMP(R2),(Ri)* 

65$ 

PCjWAITIM 



ICLEAR IMTERROPT FLAG 

IGET ADDRESS OF LOAD REGS 

;l8ad drive MUMBER 

JCLBAR FOR DRIVE 4-7 SPEC'D 

lINSERt C0MMA8D 

ICLEAR BA 

;CLEAR DA 

;L0AD RLll REGS 

l«AIf IMS FOR liTBRROPT 



III". Ih. 

Jtes? If DRif 

ml "s'^^^oj 

>coiDitioN or 



ISTERROPt FLAG SET 
IP 
— fE READY 



MESSAGE 

AFTER DATA XFER 



GET STATUS 



IS' 



F DRIVE HAS COME READY 
KIP 



CLEAR'ERROR SHITCH 

DEC H _^ 
LOOP Ulf 



WAIT COOMT 
SET CoiDlTIoi^lFTER-S 



TIME DOHE 



IcHECK FOR AMY ERRORS 
;!I0 - SKIP 
^REPORT ALL ERRORS 



ORE LAST TWO HEADER WORDS 



IGET POINTER 
;STO*'- • ■""■ 

JsAIT FOR IHTERRUPT 



ASSEMBLY ROOTIMES 
CZRLDB.PTl 25-0CT-78 



MACYll 30A(1052) 
13:12 



22-M0V-78 16:32 PAGE 1-36 



SEQ 0077 



'Htn 



2456 
-"4 




60S 
655 



20$: 



002424 22$: 



99$: 



002524 



MOV 

ERRHRD 
TRAP 
.WORD 

dr 

TST 
BNE 
MOV 
MOV 
MOV 
DEC 
BNE 
SUB 
MOV 
MOV 
MOV 
MOV 
TST 
BEQ 
ADD 
RTS 
MOV 
RTS 



(SP)*,R- 
10015. £tERRl 



*,R3 

co6l 



ERRl 

ERRSWI 

TEMP4 

|l!cS#R3 

|4#R1 

|SP)*,(R3)* 

20$ 

#2#SSIMDX 

fsP)*,R4 

fSP)*/Rl 

CSPU^RO 

(SP)*«R3 

ERRSiil 

99S 

ERRSWI/(SP) 

|?SP),(SP) 



IGET RESULTS 
IREPORT 



ICLEAR FOR ERROR ERROR RETURH 

ITEST IF REGISTERS WERE SAVED 

IHO - SKIP 

ISET POIMTER TO RESTORE REGS 

ISET COUMT 

IRESTQRE REGISTER 

IDEC COUNT 

ILOOP UNTIL ALL ARE RESTORED 

IREMOVE ENTRY FROM SUBROUT STACK 

IRESTORE REGS 



STEST IF ERROR RETURN 

lYES - SKIP 

lADD IN ERROR RETURN 

ISET ERROR RETURN ADDRESS 



iimi 



mi 



I VERIFY H 
I SEQUENCE 
VERHDR: MOV 

MOV 

TST 

MOV 

SUB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BIS 

CLR 

MOV 

MOV 

CLR 

MOV 

MOV 

BIC 

MOV 
3$: ASR 

DEC 

BNE 

CMP 

BEQ 

ERRHRD 

TRAP 

.WORD 

.WORD 



EADERS ROUTINE. COMPARES 40 HEADERS FOR CONTENT AND 



ISTORE REGS 
IGET SUBROUTINE INDEX 
IBUMP IT FOR NEXT ENTRY 
),SUBSTK(R3) iINSERT THIS CALL 



R3#-(SP) 
~"INDX#R 



[4#Sy|SfK(R3l 




/ISiJHST lflfg„CALLING LOCATION 



ISTORE 



BACK 



OPFLAG 

JORECE 
pBUFF,R4 

|tempo,r5 

(R4)/(R5) 

#*CHDCYL/R1 
|7/R0 

RO 
3S 
l/NEWCYL 

0018.«|.ERR10 
SERCODE 



ISET FOR NO ERROR RETURN 

ISET HEADER COMPARE FLAG 

ICLEAR MORE ERRORS FLAG 

ISET POINTER TO HEADERS 

ISET POINTER TO WORK AREA 

ICLEAR FOR WORD COUNTER 

IMOVE HDR WORD TO WORK AREA 

IPUT WORD IN REG 1 

ICLEAR ALL BUT CYLINDER 

ISET SHIFT COUNT 

ISHIFT 

IDEC 

ILOOP 

ICHECK 

lYES 



IF CYLINDER PART GOOD 



SKIP 

IREPORT ERROR 



ISSEMBLY RQUfliES M^C¥11 301(1052) 22»MO¥-»78 16:32 PIGE 1-37 
CZRLDB«Pfl 2S-0Cf-78 13812 



SEQ 0078 




002440 



11 



002440 



002440 
002440 
000000 

002474 
002474 



4$S 



il! 



ess 



12$l 



002440 

177700 
OOOOSO 

000077 

15$: 

000002 002424 65$: 



99$: 



MO? 

BIC 

tSf 

BEQ 

BIS 

CLR 

CMP 

BEQ 

fSf 

ERRHRD 

TRAP 

'Am 

CLR 



m 

fST 



fST 

BEQ 

CMP 

ERRHRD 

TRAP 

.MQRD 

cir 

CHP 
TST 
IMC 
IMC 
MOV 
BIC 
CMP 
BSE 
BIC 
IHC 
DEC 
BHE 
SUB 
MOV 
MOV 
MOV 
MOV 
MOV 
TST 
BEQ 
ADD 
RfS 
MOV 
RfS 



ERRSMI 
65S 

|eshd 

iHDHSEL,(R5) 
||5),(R4)* 

10018. ,£ERR10 

?|erco6e 

ERRSyi 

'R4)* 

Jr5)*,~(R4) 
l00l8'#^ER810 



ICLEIR FOR ERROR ERROR RETURN 



(R! 



||g66l 

ERRSMI 

(RSJ^RO 
|*CHDSEC,R0 

l|g«,,RO 

#hIsEC,(R5) 

k 

P^SSINDX 

(SP)*,R5 

(SPH,R4 

(SP)*,R1 

(SPU/RO 

(SPi*,R3 

ERRSMI 

99$ 

ERRSMI, (SP) 

|CSP)^(SP) 



E? HEADER COUMt 

iChtm HEAD SELECT kMd BIT 

RE ME OlpG HD 0? 
VES - SKIP 
IBSERT HE'" 

CLEIR 2MD _ - 

fES? rfgSf aORD OK 

vis - spp 

ELSE SEf POIMtER FOR ERROR 
REPORT 



HEAD BIT 
2MD MORD OF MORK AREA 



^CLEAR FOR ERROR RETURN 

iRESEf POIifER 

5 BUMP MORD COUifER 

I TEST 2iD MORD IS 

— ^S - SKIP 

^JUSt POIMfERS FOR REPORT 



fir 



ICLEAR FOR ERROR RETORM 

;RESET POIHTERS 

;BOMP PAST ECC SORD 

IBOMP MORD COUNTER 

;BOHP SECTOR OF EXPECTED HEADER 

JHOVE EXPECTED HDR TO RO 

;CLEAR ALL BUT SECTOR 

;TEST if at SECTOR 40 

;M0 - SKIP 

;CLEAR SECTOR TO 

;B0MP HDR WORD COUNTER 

;DEC HEADER COUMT 

;LOOP IF HOT VET DOME 

;REMOVE ENTRY FROM SUBROUT STACK 

IRESTORE REGISTERS 



;TEST IF ERROR RETURN 

;YES - SKIP 

;ADD IN ERROR RETURN 

;SEf ERROR RETURN ADDRESS 



1 POSITION HEAD BIT FROM HEADER OR MULTIPURPOSE REGISTER TO LSB. 
POSHWl: MOV HDBRD1#R5 ;START FOR POSITION HD BIT IN HD 1 

BR POSHDO ;SKIP 

PQSHSB: MOV T«MP,R5 ?START FOR POSITION HD BIT IN MP 
POSHDO: MOV R1/-(SP) JSTORE Rl 



ASSEMBLY ROUTINES MACYll 30A(1052) 22-HOV-78 16:32 PAGE 1-38 
CZRLDB«Pfl 25-0CT-78 13sl2 



SEQ 0079 




177677 
000006 



002424 

000002 
000004 
002424 



000002 
015226 



002260 
002260 



000001 002466 



000001 
007543 

000062 
015226 

000001 
000001 

010522 



1$: 



ftoYMAIf : 



5$: 



7$: 



6$: 



002466 



100000 002466 8$: 



104443 

023446 



BIC 
MOV 
ASR 
DEC 
BNE 
MOV 
RTS 

WAIT FOR 
FROM THE 

MOV 
fST 
MOV 
SUB 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 

m 

BNE 

DEC 

BEQ 

MAITUS 

MOV 

EMT 

BR 

MOV 

ERRHRD 

TRAP 

.MORD 

.MORD 

MOV 

JSR 

ios 

BIT 

BNE 

WAITMS 

MOV 

EMT 

DEC 

BNE 

MOV 

ERRHRD 

TRAP 

,MORD 

.MORD 

BR 

BIT 

BEQ 

ERRHRD 

TRAP 

.MORD 



#*CHSSTAT,R5 

|6,R1 

R5 

Rl 

|ip)^,Rl 

READY ROUTINE. 

CALLING ROUTINE 
MOV R3,-<SP) 
SSINDX/R3 
CR3)4- 

2(SP>,SUBSTK(R3) 
#4#SUBSfK(R3) 
R3,SSINDX 
RO/-(SP) 
r!,~(SP) 
R4j-(SP) 
#2,ERRS»I 
PCGSTAT 

fDRDYMSK/T«CS 

It 
P 

il/RO 

CSMTU 

5$ 

#MDR0Y,R3 

10020. ^fcERRB 

TSERCODE 

10020 

ERR3 

#50.|-R1 

PC/GSTAf 

|DRD¥MSK,T-CS 



?CLEAR ALL BUT HEAD SEL BIT 

;SET SHIFT COUNT 

;SHIFT FOR RIGHT JUSTIFY 



;restors Rl 

;RETURN 



l^RO 



R| 

|C5SEC,R4 

10021w^ERR5 

TiERCODE 

10021 

ERRS 

tANYERR^T.CS 
10022 



DURATION OF ^AIT PASSED TO THE ROUTINE 

IN Rl. 

ISTORE R3 
?GET SUBROUTINE INDEX 
?BUMP IT FOR NEXT ENTRY 

;INSERT THIS CALL 
lADJUST IT TO CALLING LOCATION 
>STORE IT BACK 



?SET FOR NO ERROR RETURN 
;GET DRIVE STATUS 



JCHECK IF READY 
;YES - SKIP 
?DEC WAIT COUNT 
;SKIP IF 



ISET NAME MESSAGE PTR 
IREPORT READY ERROR 



;SET WAIT COUNT FOR 5 SECONDS 
;GET DRIVE STATUS 

;TEST IF DRIVE READY 
)YES - SKIP 
JWAIT 100 MS 



JDEC MAIT COUNT 

?LOOP UNTIL TIME DONE 

;SET CONDITION AFTER 5 SECDS 



;EXIT 

JTEST IF ANY ERROR SET 

;N0 - SKIP 

JREPORT ALL ERRORS 



liii 



ASSEHBLY ROUfliES 
CZRLDB.PTl 25-0Cf-78 

im mm mm 
qu iiUU 



13112 



30&C1052) 22-iOf*78 16s 32 Plii 1-39 



SEQ 0080 




021270 010337 
021274 012737 



i 



002440 
002440 
000000 



002424 



017642 



Si 



002424 



mm 

002440 
002440 
000000 



w 



99S! 



6BTP0SS 



imi 8«^^^« 



002424 



0-. 

002 



000002 002440 



02424 



GE' 
(HI 
RU1 



4$S 



002424 65$: 



99$S 



.HQRD 

DEC 

CLR 

SUB 

MOV 

MOV 

MOV 

MOV 

TSf 

BEQ 

ADD 

RTS 

MQV 

RTS 

ET pgs 

VHERB 

MOV 
SUB 

ss? 

MOV 

in 

Mof 
BIC 
MOV 
ASR 
DEC 
BHE 
MOV 
SUB 
MOV 

m 

TST 
BEQ 
ADD 
RfS 
MOV 
RTS 

ciiJII 



mm 



BRRi 
ERRCMT 
-^^RRStf! 
a^SSIMDS 

JRSfcll 

erIs«i^(sp) 



SP)^(SP) 



ti 



}D|C rOR DOUBLE ERROR REPORT 
fCmm FOR ERROR ERROR RETURN 
iRpOfE EMTRY FROM SOBROOT STACK 
^RESTORE REGISTERS 

{IpFli e2rOR RETURN 
>¥iS - SKIP 

MDD m error rsturh 

ISBT error return ADDRESS 



ROUT 



l!f£y«S 



VERPOS! MOV 
MOV 
TST 
MOV 
SUB 
MOV 

MOV 



iTIOM 



ADS A HEADER FROM CURRENT CYLINDER 
QSIflOilD) AMD STORES CYLINDER 




HDHRDl£R3 
|*CHDcfL,R3 



R3/CURCYL 
-'^iSSIMDX 



JIOMP 11 FOR NEXT ENTRY 

liLis! XT TO CALLING LOCATION 
isfORE If BACK 



7D0 READ HEADER 

;eEt HEADER MQRD 
KlIaR all but CYLINDER 
;SEf SHIFT COUNT 
ISHIFT TO RIGHT JUSTIFY 



;STORI 

IREMO 

IRESTORB REGISTERS 



„.-„ AS CURRENT CYLINDER 
EMOfE ENTRY FROM SDBROUT STACK 



|rRS8I,(SP) 
SP),(SP) 



iTi 

III 



TEST IF ERROR RETURN 
"ES - SKIP 
DD IM ERROR RETURN 



ISET ERROR RETURN ADDRESS 



POSITION ROUTINE, READS A HEADER (USING GETPOS) AND 
HEADS ARE POSfTIOaEO AT HEM CYLINDER (CURCYL = NEMCYL). 
__£-!.. 1. |g|J suilooYiHE iMDEX 



;ByMP If 



aj«i?m§i"""^-^'* 



FOR NEXT ENTRY 

vn sttfe 



CALLING LOCATION 



I ADJUST I- ._ 
?STORE IT BACK 

?SET FOR NO ERROR RETURN 



ASSEMBLY ROUTINES MACYll 30A(1052) 22-NOV-78 16S32 PAGE 1-40 
CZRLDB.PTl 25-0CT-78 13x12 



SEQ 0081 




017130 
0Q2456 

"1?? 



092526 



00242 



1$: 
4 65$: 



99$: 



IdALHD: 



miti 

002440 
002426 



002456 



002462 
000004 3$: 



000000 6$: 

000000 7$: 



JSR 

65S 

CMP 

BEQ 

ERRHRD 

TRAP 

.MORD 

.UORD 

CLR 

SUB 
MOV 
TST 
BEQ 
ADD 
RTS 
MOV 
RTS 



PC^GETPOS 
NEHCYL,CURCYL 
10022. £,ERR8 

tsercodI 
errsmi 

P^SSIMDX 

JSP)*,R3 

ERRSHI 

erIshi^csp) 

|(SP),(SP) 



;GET POSITION 

>CHECK IF CURRENT CYL IS NEW CYL 
;YES - SKIP 



;CLEAR FOR ERROR ERROR RETURN 

;REMOVE ENTRY FROM SOBROUT STACK 

JRESTORE R3 

ITEST IF ERROR RETURN 

;YES - SKIP 

;ADD IM ERROR RETURN 

;SET ERROR RETURN ADDRESS 



READ 

IN I 

MOV 

MOV 

TST 

MOV 

SUB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BIS 

MOV 

MOV 

ADD 

MOV 

BIS 

BIC 

CLR 

CLR 

TST 

BEQ 

BIS 

MOV 

MOV 

BIT 

BNE 

ill 

MOV 
MOV 
BIT 
BNE 
DEC 
BNE 



ALL HEADERS ROUTINE, 40 HEADERS ARE READ AND STORED 
BUFF, 

SsiNDX,ft3 



R3£-(SP) 
SSIN0X,R3 



2(SP),S0BSTK(R3) 

#4,SUBSTK(R3) 

R3,SSINDX 



JSTORE REGISTERS 
;GET SUBROUTINE INDEX 
;BUMP IT FOR NEXT ENTRY 



i4;-(sp) 

2,ERRSUI 



RO,- 
Rl 
; R4 

2< 

4O.4RI 

HDR40,OPFLAG 

IBUFF^RS 

LBAS,R4 

RLMP,R4 

lO^L.CS 

LDRV,L.CS 

BIT10/L,CS 
_..BA 
L.DA 
DESHD 

#hdsel,l-da 
l.da,rlda(r2) 
l.baJrlb*(R2) 
crdymsk#rlcs 



I INSERT THIS CALL 
;ADJ0ST it to CALLING LOCATION 
;STORE IT BACK 



t 



n 



/RDYCHK 



>set for no error return 

;set header count 

>set 40 hor op flag 

jset pointer to store hdrs 

;get base address 

;make it point to mp reg 

;load for read header/ no interrupt 

iinsert drive number 

;clear for drive 4-7 spec'd 

;CLBAR BA 
;CLEAR DA 
;TES? IF HEAD 

;yes - skip 
;else insert head 
;load rlda reg 
ilqad rlba 
(r2) ;test if controller ready 

;YES - SKIP 
;ELSE CHECK READY 



L.CS#RLCS(R2) 

|77777£R0 

|CRDYMSK/RLCS(R2 

RO 
7$ 



;LOAD RLCS REG 

;SET COUNT FOR WAIT 

) SCHECK THAT OPERATION COMPLETED 

>YES - SKIP 

;dec count 

;skip if not yet 



ISSEIIBL¥ ROOTIMES 
CERLDB^Pfl 25-0C?-»78 



MCfll- 3OIC10S2I 22-iO¥-»78 16l32 PIGE 1-41 
13112 



m mtn mm mm 




2604 



m mu mm 

lose 021702 012603 

2057 021704 00S737 

lose 021710 001403 

'mi 'ouih^ 

21724 000207 



002440 
002466 



002440 



8$! 



12$; 

000002 002424 65$: 

002440 
002440 
000000 99$s 



JSR 
JSR 

nm 

ERRHRD 
liQftD 

BR 



PC^REIPRL 

CSP>*^R3 

KriKy 10025, ££ERR 

ERRl 
"^RftSMI 
5$ 

10026«£|.ER8 

ERR6 
ERRSMI 

CR45>(R3{* 
CR4)^CR3)* 



fR^P 
,iORD 

iir 

BR 

M0¥ 

MQ¥ 

HO? 

DEC 

BME 

SUB 

MOV 

MOV 

MOV 

MOV 

TST 

BEQ 

IDD 

RTS 

MOV 

RfS 



f 



f2,SSI|0X 
fSPU#R4 
(SPU^Rl 
(SPU^RO 

ERRSMI 
99$ 

ERRSMI, (SP) 
PC 
g{SP),CSP) 



lELSE GEf ILL REGISTERS 
;ELSE^MlIf„FQR„tlMEOyT„ 



ELSE GJ 

.ELSE ' .^^ _ __. 

IGET RESULT MESSIGE POIMTER 



) 



;CLEiR FOR ERROR RETURM 



??EST FOR ANY ERRORS 
>M0 - SKIP 



ICLEAR FOR ERROR REfURM 
JSTORE HEADER MORDS 

JDEC HEADER COUNT 



I REMOVE EM 
jRESfORE R 



?R¥ FROM SUBROUT STACK 
AGISTERS 



;TESf IF ERROR RETURH 

lYES - SKIP 

;ADD IM ERROR RETURN 

ISET ERROR RETORM 4DDRESS 



069 021726 

070 021730 




Toin 



ill mil 

„078 021754 _____ 

^82? mm mm 

-pi 021766 001403 

J. Ml iM 

2085 022000 012321 

"'" 022002 012321 



6atgem: 



004066 
002234 

mm 

000010 
000020 



3$: 



GENERATE DATA ROUTINE. 
IH THE MORD FOLLOMIHG 
IN OBUFF. 



MOV 
NOV 
MOV 
MOV 
MOV 
ASL 
MOV 
MOV 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BLT 
fST 
MOV 
MOV 



|0B0fF*6l 
|R5)H.,g4 

PATTBL(R4),R3 
(R3),(R1)* 

A).i-1 

rL#8, 

R4,#16. 



R3)* 

RSj-i-^fRl)* 

R3)*,(R1)* 



PATTERN TO BE GEMERATED IS GIVEH 
THE CALL« 128 aORDS ARE GEMERATED 

jSfORE REGISTERS 



;set poihter to obuff 
;gef data pattern selector 
;adjust it for ihdexihg 
;get address of pattern 
;mo¥E first pattern HORD 
?skip if pattern is 
;check if pattern is all 1 's 

JIest^if pattern 5 

;VES - SKIP 

;CHECK IF PATTERN 9 OR 10 

;M0 - SKIP 

;B0MP SOURCE POINTER 

;M0VE TMO MORE MORDS FORM SOURCE 



ISSEHBLV ROUTINES MACYll 301(1052) 22-MOV-78 16s32 PAGE 1-42 
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SEQ 0083 




i\ mm 

) 022216 



7} 022226 

s mm 



000015 
004066 

004066 
000017 



004066 
000160 



002424 

000002 
000004 
002424 



000001 

mtu 

003466 
000001 
000200 



000001 
002440 



000200 



010421 
0024|6 
007520 
011524 
000005 



000014 



10$: 



002260 
002260 



002426 



5$l 
7$: 



002426 9$: 



MOV 

MOV 

BR 

MOV 

BR 

TST 

MOV 

MOV 

DEC 

BNE 

MOV 

MOV 

MOV 

DEC 

BHE 

MOV 

MOV 

MOV 

RTS 



) DATA 

I ERROR 
DATCOMI MOV 
MOV 
TST 
MOV 
SUB 
MOV 
MOV 
MOV 
MOV 
BIS 
CLR 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 
INC 
DEC 
BME 
BIC 
TST 
BHE 
HQV 
PRINT 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 



|0BUFF,R3 
#0BUFF^R3 

|l5,,R4 
R4 

|ll2«,.R4 

CR3)-«-,(Rl)4- 

R4 

lOS 

(SP) 

(SP) 

(SP) 

R5 



P)*,R4 
P>+,R3 



COMPARE ROUTINE^ 
REPORTING IS LI 
R3#-<SP) 
SSINDX^RS 
(R3)-i- 
2CSP),SDBSTK( 
|4,SUisTK(R3) 
RB^SSINDX 
Rl^-CSP' 
R4,-CSP 
R5^-(SPi 
tOITlCMP^OPFL 
MORECE 

I OBUFF, R5 
IBUFF,R4 
1,R3 
128. ,R1 
R4)*,CR5)4- 

Rl 

#0ATACMP,OPFL 
ERRSMI 

|FMT27,iTCERR 

fiORECE,- 
PCERR,- 
»FMT27£- 

CSPNTB 
#14,SP 



;SET COUNT 
JRESET POINTER 

?ELSE SET OBUFF AS PATTERN SOURCE 

;G0 TO FILL 

JBUNP SOURCE POINTER 

;SET MOVE COUNT 

JMOVE 15 MORDS INTO BUFFER 



;SET SOURCE TO TOP OF OBUFF 
jSEf COUNT FOR REST OF BUFFER 
^REPEAT PATTERN IN BUFFER 



JRESTORE REGISTERS 

IRETURN 

COMPARES THE CONTENTS OF IBUFF AND OBUFF, 
MITED BY SOFTWARE PARAMETER. 

;STORE R3 

?GET SUBROUTINE STACK INDEX 

;BUMP INDEX TO NEXT ENTRY 
R3) JINSERT THIS CALL 

;ADJUST it to CALLING LOCATION 

;STORE IT BACK 

;STORE OTHER REGISTERS 



AG ?SET DATA COMPARE FLAG 
;CLEAR MORE ERROR FLAG 
JSET POINTERS TO DATA FOR COMPARE 

JSET WORD COUNTER 

;SET COMPARE COUNT 

^COMPARE DATA 

lERROR - SKIP TO REPORT 

;BUMP word COUNT 

IDEC COMPARE COUNT 

ILOOP IF NOT 
AG ICLEAR DATA COMPARE FLAG 

JTEST IF ANY COMPARE ERRORS 

;N0 » SKIP 

ISET REPORT VALUE 
, MORECE, #RESE6,R1 



(SP) 
(SP) 
(SP) 
(SP) 



ASSEMBLY ROOfllES 
CZRLDB«P?1 25-0C?-78 



30AC1052I 22-aOf-78 16232 P16E 1-43 




MJlCYll 
13S12 



000002 002434 15$: 



SEQ 0084 



013404 



99$3 
lOS! 



002542 

mm 

002426 
002556 

mm 



002000 
000004 



003466 
004066 



13$S 



XMRIfT! 

XVRITE: 
XHRlflS 



^kU: 



SPj*£R3 
tBRSBf 

eUsmi^csp) 

|?SP>^(SP) 

MORECE^DCLIMII 

-fi4)^-<R5) 
J035.«£SRR10 



IrESTOIE REGS 



mom soBROof sf&cK 



li 



iRCofil 



?TESf IF ERROR REfORM 

;Iio ii^iiSoR REfORB 

jSEf ERROR REfORi IDDRESS 

JfESf If COMPARE ERRORS LINIT EXCEEDED 
SyES - SKIP 

}SEf P?RS B&CI TO ERROR MORDS 
iRSPORf ERROR 



!RR|tlI 
R4|*^(R5)* 

MQRECE 



I CLEAR §i§01 
lii PIT COtfi 



*°^mii 



OR tlORDS 



IfBR 



''i-!ctiMpf ' '°"liif SPECIAL MRIfE FOR flNIlG FLAG 



tfl 
Sit, 



mtlkllT 



TEMPI 

iUfDJ 
255, 
isHD 

IIadadd^opflag 
IrEadg 

IRDDATA.fEMP? 



7 CLEAR 

mi— 




18: 



SPEI 
HI 



ST IF 



;sf 



ff« 



fLiii 



;f bad 

:f FOR 



_F HEAD 
SKIP 

READ 



MRITE FLAG 
DER 255 (BAD SEC) 
1 (BAD SECTOR FILES) 
FLAG 



iSfORE R3 

--*- SOBROOTPE IMDEX 
to SEXf '""" 



BSTK(R3) liMSERf THIS C, 



K(R3 



(R3) IIMSEI 



|L.CS#R3^ 
Bif2,tR3)4 



TEMP 

RLDRVi: 

IBITIO 



mi 



3$: 




TO' foiif TO 



CALL 



}bOMP fg SEXf STACK EMTRY 
' lIMSERf THIS C"- 
ADJOST TO POli 
>STORE If BACK 

;STORE OTHER REGISTERS 

iCflECK IF DRIVE REIDY 

;GET address OF LOAD REGS 

;SET COMMAMD 

HMSERT DRIVE NOMBER 

JCLBAR FOR DRIVE 4-7 SPEC'D 

JTEST IF WRITE DATA 

;YES - SKIP 

;tLSE SET ea FOR READ 

;SET BA FOR SRITE 



ASSEMBLY ROOTIMES 




M&CYll 30A(1052) 
13112 



22-H0V-7B 16:32 PAGE 1-44 



SEQ 0085 



4$: 
5$: 



7$: 



002426 8$: 
002426 



2$: 



10$: 



002466 14$: 



17$: 



000001 002466 



MOV 

MOV 

ASL 

DEC 

BME 

TST 

BEQ 

BIS 

BIS 

MOV 

TST 

BEQ 

MOV 

BIT 

BEQ 

BIC 

MOV 

ERRHRD 

TRAP 

.MORD 

-HORD 

CLR 

BR 

CLR 

TST 

BNE 

MOV 

MOV 

MOV 

MOV 

WAITUS 

MOV 

EMT 

TST 

BME 

JSR 

ERRHRD 

TRAP 

.WORD 

.WORD 

BR 

BIT 

BME 

MOV 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

MOV 

JSR 

in 

BNE 
DEC 



;GET CURRENT CYLIMDER 
;ALIGIi IT IH DA 



CyRCYL,(R3) 
f7,R4 

DESHD 

5HSMSK/(R3) 
imUh 

|!77777/(R3) 
PaDADD/OPFLII 

#*CBADADD>rOPFLAG'"lCLEA'R."AtL.BgT,THIS„FLAG 



ITEST IF HEAD 
?YES - SKIP 
;SET FOR HEAD 1 
sIMSERT DESIRED SECTOR 

?8icTlH?E8Sr«RITE rOR TIMING 
"MO — SKIP 

{else SET FOR 1 WORD TRANSFER 
?TESf IF BAD ADDRESS FLAG SET 
;HQ - SKIP 



Imwrtab,r3 

10032. #irERRl 
TSERCODE 

OPFLAG 
64$ 
DOME 
TEMPI 



655 
(R3 



II 



rRLMP(R2) 
^RLDA(R2 



)/RLBA 
>^RLCS 



-(R 

-iR 

#30 

|30.. 

CSWTU 

DOME 

14$ 

PCgWAITIM 

{Syof^^ERRl 
TSERCODE 
10030 
"-^1 



ii 



ERRl 



DYMSK/T.CS 

M0RDY/R3 
CAFDT,R4 
0032.£tERR5 
TJgR^06l 

ERR5 

|50.#R1 

PC/GST&T 

fDRDYMSK^T.CS 

20$ 

Rl 



a >wL<GAi\ nuu nut iiia<ii> cLinu 

;SET RESULT MESSAGE POINTER 



ICLEAR ALL FLAGS 

;CLEAR INTERRUPT FLAG 
;CHECK IF SPECIAL WRITE FLAG SET 
lYES - DO NOT START WRITE 
;LOAD RL REGS 



;WAIT 300MS FOR INTERRUPT 

;CHECK IF INTERRUPT 
;YES - SKIP 
;WAIT FOR INTERRUPT 
;GET RESULT MESSAGE 



;TESf IF DRIVE READY 
;YES - SKIP 

;SET RESULT MESSAGE ^ „ 
{condition after DATA XFER 



5SET WAIT COUNT FOR 5 SECDS 
?GET DRIVE STATUS 

?TEST IF DRIVE READY NOW 
;YES - SKIP 
JDEC WAIT COUNT 



USSEHBLY ROOTISES 
CZ8LDB«Pfl 25-0CT-78 
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SE3 0086 



000001 
003272 



002424 



002442 



20S! 



m 



99$: 



ISCHIs 



2$: 

4$: 

5$: 



m 



12$: 
15$: 
20$: 



BME 

MOf 

ERRHRD 

TRAP 

«liORO 

«IIORD 



RD 



CLR 
fSf 

m 

«tfORD 
.HORD 
CLR 
SOB 

SSI 

HO? 
NOV 
Tit 



i 



OESHD 

MQ9 

MO? 

MO? 

CLR 

HOf 

CMP 

BHE 

MO? 

CMP 

BEQ 

MOV 

HO? 

hlh 

BME 

TST 

BEQ 

BIS 

BIS 

CMP 

BEQ 

BHI 

BR 

HO? 

BR 

CMP 

BGT 

MOV 



SECT 



icisEC^R4 

ERRSil 
T«CS 

ERRSMI 

|RRSIl! 

ErIsMI/CSP) 

i(3P),<SP) 



f?!g?-ciSr,f?Ior§^si8gSDS 



ICLIAR gRBOR SVITCH 

iCflicK IF hMY Emm 
ISO - slip 



) 



ICLEIR ERROI 
JatMOVE EMtL. ... 
JRSSTORE REGISTE 



ERS 



i-EgTiV_?BOH SBBROOT STACK 



;TEST IF ERROR RETURR 
iECSE'AOD IK ERROR RKTORI 
;1DJ0ST rOR ERROR RtTORI 



RO,-(SP 

U'-.kl 

|bs.JL,R3 
l||Sg|L,RO 



;SfQRE REGISTERS 



SHD 
IT6,R0 



wEm. id#ku 
S||S|6.R0 

111 

(SP)4-,R3 



BSFLIG 
fFBSFIL 



;CLE&R FLAG 
iGEf POINTER TO 

?CHECK fr III om 

;lip SKIP TO tEST 
;ELSE SET POlifE 
;CHECK IF ALL OMES 
TES - EXIT 



FACTOR? FILE 
ES 

lifBR TO SOFTHARE FILE 



!SJl:?i8S*8fL«i8gER"'""=" " »'•""'"' 



;CHECK IF HEAD 
IVES - SKIP 
IIISERT HEAD 1 

}Jfii?K"TSff88RD IR PILE 

;set error flag 
;go to exit 
;d0ke both files? 
>SP„So„BQ«§0^t«are file 

;ELSE RESTORE REGISTERS 
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SEQ 0087 




99$: 



fePTOP: 



3$: 



1$: 



002426 
020000 002426 



2$: 

20$: 

22$: 



M0¥ 
MO? 
TST 
BNE 
ADD 
RTS 
MOV 
RTS 

REPORT 

OPERAT 

ERROR 

MO? 

TST 

BEQ 

MOV 

PRINTS 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTS 

MOV 

MOV 

MOV 

MOV 

EMT 

ADO 

ADD 

CMP 

BLE 

PRIMTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

BIC 

MOV 

BIC 

CMP 

BNE 

BIS 

CMP 

BNE 

BIS 

CMP 

BNE 

BIS 

PRINTB 

MOV 

MOV 



PJ*,R1 
FLAG 



(SP) 

ispj 

BSFL 

99$ 

|2,(SP) 

|(SP),(SP) 



;CHECK IF ERROR 
;¥ES - SKIP 

;else bomp error return 
;SET for error return 



OPERATIOM routine. PRINTS SUBROUTINE TRACE SEQUENCE AND 
lOH BEING PERFORMED PORTION OF ALL oDwucnut linu 

MESSAGES. 



R4,-(SP) 
SSINOX 

}2#R4 
FMT9,|SE9M 
SEQMES.-(SI 
FMT9,-fsp) 
P#RO 
CSPNTB 
p^SP 
|FMT16,SU1 
SUBSTKtR4 

|fmt-' ' 

fp'R 

i2^R4 
R4,SSINDX 



;TEST SUBROUTINE INDEX 
;SKIP IF 

;SET INDEXER TO FIRST ENTRY 
;PRINT "SUBROUTINE CALL SEQ" 






STK(R4) 
(SP) 



;PRINT CALLING LOCATION 



f) 



JBUMP INDEX 

;CHECK IF ALL PRINTED 



;PRINT ERROR HEADER 



|fHT4,ERHEA0,#Tsll:Sg-''-«9^--4'-fc-ESINTED.VET 

#FMT4£-(SP) 

SP/RO 

CSPNTB 

#10/SP 

|SE|K0PIR0RM0P,0PFLAG 5CLEAR SK & RD OR HRT FLAG 

t:S§«?l JCET COMMAND EXECUTED 

177741, Rl ;STRIP ALL BUT FUNCTION CODE 

6,Ri ;TEST IF SEEK OPERATION 
;N0 - SKIP 

;else set seek flag 
;test if hrite 

;N0 - SKIP 

ISET RD OR HRT FLAG 

;TEST IF READ 

;N0 - SKIP 



SEEKOP^OPFLAG 
„RORWOP,OPFLAG 

PI'" 

IRORWOP^OPFLAG 
#HDPER - 



#F MT 1 # #Ry r DK * ur pi 
OPMSGS(Rl),-fsP) 
#MOPER,-(Sh 



5SET RD OR WRT FLAG 
gPMSGSCRl) ;PRINT OPERATION 



ASSEMBL¥ ROOfliBS 



H&eill 3iJIC10S2) 22 
13112 



-iOf-78 lSi32 ¥mt 1«47 




SEQ 0088 



mm 



000010 002462 

000016 

007777 002426 4$s 



mi 
iii 



5$s 



6SS 



000050 

Sill 



002426 8$: 



9$ I 



000006 

010000 002426 10$8 



000024 

020000 002426 15$: 



BEQ 






s?> 



|!6,R1 

ICOMPOP^OPrLilG 

oIfLAB,S4 

1)+ 

I'ifsp) 

p^**fl 
|PllfB 

H5i40/OPrL&6 



ICHECK ir GET STAfUS 

SlQ - SKIP 

l|ESf IF RESEt IBCLOOED 

iSEf'TO^ISliiT MIfH RESE? 



I TEST 




All¥ OTHER OPER&TIOi 



>ELSE 



IF 40 



HEADER OPERATION 
IT 




iflEK(^^0PFI.A6 



ISKIP 
,OLDCfl.,»OIFliD,]DE 



]DESDIF,«S6IIID,DESS6l,«HDIiD,DESHD 



FRM«D,-CSP 

4 SP 
oftwOP/OPFLAG 



17$ 



iTESf IF READ OR WRITE SET 
JhO - SKIP 



ASSEMBLY ROUTIHES 
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SEQ 0089 



17$: 



RPTRESS 



3$: 



050QJJ 



PRIMTB 

MOf 

MOf 

MQf 

MOf 

MOf 

MOf 

MOf 

MOf 

MOf 

EMT 

ADD 

JSR 

MOV 

RTS 

REPORT 
PRIHTS 
MOf 
MOf 

MOf 

PRIMTB 

MOf 

MOf 

MOf 

MOV 

MOf 

EMT 

ADD 

CMP 

BEQ 

MOf 

CMP 

BNE 

MOf 

DEC 

pRIHTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRIMTB 

MOV 

MOV 

MOV 

MOf 

MOV 

EMT 

ADD 

SUB 



#FMT22##C|LMD^CURC¥L/»HDMD,DESHD,#SECilD#DESSEC 
DESSEC,-(SP) 

gSECVD^-CSP) 

CSPMTB 



;CLEAR PARAM TABLE 
;REST0RE R4 



REASON ROUTIHE 

REASOM PORTIOM FOR ALL ERROR REPORTS- 
IP) > STORE HI 
> STORE R3 
; STORE R4 

;GET START OF PARAM 
IGET MUMBER OF PARAM 
'" ;PRINT NAME 




#L 

• Rl l-f R3 — 

mrs£t,-(Sp) 

SP£RO 
CSPMTB 
#10/SP 
(R1),#MMDRST 

ImT11,R4 
Rl)*,#MCyLQC 

#FMT12^R4 

RESE3#(R1)* 



I 



;test 
;yes 



IF message 

SKIP REST 



rO DRV STATUS 



m 



§1. 



;PRISET FOR FORMAT 11 
JCHECK IF REPORTING CYLIMDER LOC 
)Na - SKIP 

;ELSE CHANGE TO FORMAT 12 
;DEC PARAM COUMT 
;IF - EXIT 
JREPORT IS VALUE 



R4£|rESE4*(R1)+ 

iRlU^-(SP) 
RESE4,-(SP) 



IREPORT SB VALUE 



id] 

CSPMTB 



tlU 



?DEC PARAM COUNT 



kSSEmU ROOfI 
CZRLDB«PT1 




301(1052) 22-iO¥-78 16:32 P^GE 1-49 



SEQ 0090 



6S: 



^ptreh: 



MfB 



BEQ 

PRi: 

MOV 
NOV 
M0¥ 
HOf 
MO? 
EMT 

H0¥ 
MOf 
MO? 
RfS 



REPORT 

PRIMfB 

CLR 

BISB 

MO? 

MO? 

MO? 

HO? 

MO? 

MO? 

EMT 

ADD 

REPORT 

PRIMTB 

MO? 

MO? 

MO? 

MO? 

MO? 

MO? 

MO? 

MO? 

MO? 

EMT 



|MTl^#RS|E5^(ai{/ irIpi 






Sif COiDITIOM 



;RgSTORS REGS 



iRETURi 



PH¥SICA|.^IDORgSS Of DE?ICE OiDER TEST 

ilOD^ELils,#DR¥liiM,<B#RLDR?^l> 



RLDR?fl,(SP) 



|OR?iAM;-iSI 
RLBilSc-CSPl 




,#DIiAM,#B&SAM,#MPBJIM,#C¥LiiD^iHDIiD 



W^' 



CSPMT. 
RLtl RBG^ 

mt-iii] 

fB&lfAM,«(SpS 
DAIiAM,-{sP) 

CSPMTB 

PO^SP 

trMT8,|LABl,L.CS,L,DJl,L,BA,L.MP 

L.MP,-(SP) 

l-ba;-csp) 
l,da;-{sp) 

JFM"* * 




#LAB2#T«CS/T,DA^T.Bi^T«MP^C0RC¥L,DESHD 
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10) 024436 
*- 024442 



384 
1 85 



2388 
"389 



m 



m, 



4446 
4452 
4456 
4462 
^4464 



013746 002472 

013746 002466 

lim mm 

012746 000010 



10600 
04014 



000022 



liW 010546 



14506 
^1510 



«j| 



0245 



024524 



005021 

mm 

012701 

um 



002504 



SEQ 0091 



MOV 
MO? 
MO? 
MO? 
MOV 
M0¥ 
EMf 
ADD 
RTS 



A,-(SP) 
S#-(SPl 



T,DA, 
f,CS#-._,^ 

iLAB2,-(SP) 
rMT7;-(SP) 
P/RO 
CSPHTB 



6lrparm 



CLEAR PARAMETER BLOCK FOR REPORTING 



2$: 



MOV 
MOV 
CLR 
DEC 
BNE 
MO? 
MOV 
RTS 



MOV R5^-(SP) iSTORE R5 

■RESPARM^Rl ;GET ADDRESS OF BLOCK 

5fR5 ;SET COONT 

Rl)* ;CLEAR HORD 

R5 ;DEC COOHT 

2S ;loop until 

pESPARM^Rl ;RESET POINTER 

(SP)*^R5 ;RESTORE R5 



iSSSMBLf ROOffiES 



024524 



14lSf 



22'»ilOf-7t lit32 PJISE 2 



SEQ 0092 




ssm^ 



002544 



015226 
002502 



M 



itiiii 



002544 



002544 



m 



II! 



10$: 

12$! 



mvi 



**D|FrE!linCE OF 



I SEEK CPAR? 1) 




ERHBIO 



16§ 



BROR HEADER 

1 IHTO Dlff 
OlifBRS 



lli 



UK 

ic 



>SE1 
JSEf 

;G0 CHOSE HEAD 



AOGMEMf FOR -1 SEEK 



Tl-ll 



IGET POSIflOR 

;CHSC!C IF IN ERROR LOOP 

mo - SKIP 

ICHECK If_COBRBit « MEM 

Jig? 

m 



ICHECK IF CORREit 

- Illip OLD liD BEll 

feGE%lrF AUGNERT FOR OPPOSIfE DIR 



CORRERf INTO OLD 
CK IF CURREiT AT 255 



}at max^cIl, 

-""IP 



IDO SBEK 
iStT STAfOS 



MAKE NEXT SEEK REV 

CURRENT AT 

MAKE NEXT SEEK FWRD^ 
TO ME« C¥L (♦! OR -1) 



ISET EXPECTED STATE 
ICHECK IF STATE CODIT 
sTES'-SKf P 
I REPORT STATE ERROR 



lEXIT 
ISET - 



. TEST 
,__. EXPECTED STATE 
ISET »AIT COUNT FOR 5 MS 
IGET STATUS 

IIS STATE 5? 
lYES-SKIP 




30A(1052) 



024 
02476; 

ml 

024770 
024774 

mm 

025010 
'25010 



104003 



000062 
020650 

000002 



002540 




002440 



002540 



22-«Oy-78 
"TEST 1 



DEC 



16s 32 PAGE 2-1 
**DIFFEREMCE OF 



14S! 



16$: 



60S: 

ENDSUB 

L10021: 



HAITUS 
M0¥ 

ERRHRD 

TRAP 

.WORD 

.WORD 

MOV 

JSR 

60$ 

MOV 



104001 



23$: 



EMT 

ESCAPE 

EMT 

• WORD 

DEC 

BEQ 

BIT 
BNE 
JSR 
24$ 
BR 



c|mtu 

i02.##ERR7 
TSERCODE 

ih 

P0.#R1 
PCRDYHAIT 

#2/ERRSWI 



CSESUB 

TST 

CSESCAPE 

L10020-. 

TEMPO 

24$ 

#BIT0#TEMP0 

PC/SHAPHD 

T172$ 



CSETST 



1 SEEK (PART 1) 

IDEC WAIT COUNT 
ISKIP IF 



SEQ 0093 



I REPORT STATE ERROR 



ISET WAIT COUNT FOR 5 MS 
|G0 WAIT FOR DRIVE READY 

UNIT ERROR SWITCH 



lEXIT TEST IF ERROR 



IDEC PASS COUNT 
ISKIP IF 0-DONE 

ITEST IF PASS=2 

INO-SKIP 

|G0 SWAP TO HEAD 

lABORT RETURN 



1 OR END TEST 



ISSEMBLf ROUTIIES 
C%aL0B»PH 23-0CT-78 



14S39 




mroi 

001403 
104443 



30&(1052) 22-iOf-78 

*fESf 1 



000001 

000226 
0206S0 

021116 



000001 



16s 32 PISE 2-2 

**DIFriHIiCE or 1 SEE! (PART 1) 



SE@ 0094 



tUm 



002544 



002544 



002544 



-SBtTL 
BGMtST 



BeiSOB 



m 



7$: 



8$: 

9?! 



lOs: 



*?EST 2 
MOV 



«*DIPFEREifCg OF 
;fEST 2 



1 SEliC (PART 2) 



ni 

JSR 
HOV 
NO? 
MOV 
HO? 



65$ 




CSBSUB 
PC,GEtPOS 




$er66de 



ASS co§i| 

SflfIL ClIir DRIfE 



jfifTftLlzi"?!; 



?2ss 



ISO CHOSE HEAD 



im iiiuk' 



g^HMT TO 



■1 (RETERSE) 



isriiRiiii.tiirii/"'^ '''''''' °" 



Af 255 



T2.18 
iGEf CURREIT POSIflOi 
ICHECK If m ERROR LOOP 
;M0 - SKIP 
>CHECK IF CURREif = MES 

" GE DIFF .._ 

)CHECK IFCORlEif 

;!ig - SKIP 

l|| MAX CfL, ,AKE gEXT SEEK REV 

If EST IF CORREMT AT 

|iO - SKIP 

>Af CYL 0, MAKE iEXT SEEK FHRD 

;ADD DIFF TO MEW CYL (4-1 OR -1) 

IDO SEEK 

>SET WAIT CgUHT FOR 15 MS 
;SAIf FOR READY 

;SfORE POSITIOM 

;GET OLD POSITIOII 

; SUBTRACT FROM MEM 

;CHECK^IF SIGH FORWARD 

;YES-SKIP, ELSE SUB FOR SEEK REVERSE 

;GET MEW CYLIMOER 

;SUBTRACT FROM OLD CYL 

;CHECK IF RESULT IS DIFFEREMCE OF 1 

;yes-skip 

lELSE REPORT ERROR 



ASSEMBLY ROOTIMES 
CZRLDB.Pll 23-0CT-78 



025266 
025270 
025272 
025272 

8iil8§ 

025300 
025302 

mi 

025306 
025312 

025314 
025322 
025324 
5|5330 
0|5332 

025334 
025334 
025334 



012737 

104003 

000030 
005337 
001410 

032737 
001003 
004737 

mm 



104001 



MACYll 
14:39 



301(1052) 22-110?"- 
*TEST 2 



000002 002440 



002540 

000001 
017414 



002540 



• MORD 
.WORD 



MOV 



EMT 

ESCAPE 

EMT 

.WORD 

DEC 

BEQ 



)022: 



BIT 
BNE 
JSR 
30$ 
BR 



!32 PAGE 2-3 
**DIFFEREHCE OF 



201 
ERRS 



#2,ERRSHI 



CSESUB 

TST 

CSESCAPE 

L10022-. 

TEMPO 

30$ 

fBITO, TEMPO 

20$ 

PC/SWAPHD 

T187S 



C$ETST 



1 SEEK (PART 2) 



SEQ 0095 



;ISIT ERROR SWITCH 



?EXIT TEST IF ERROR 



;DEC PASS COUNT 
;EXIT IF DONE 

;TEST IF PASS 1 OR 3 

;yes-skip 

;G0 SWAP TO HEAD 1 OR 

;AB0RT RETURN 

;LOOP 



ASSEMBLY RQUflNES 
CIRLDB-Pll 23-0Cf-78 



14139 *fiSf 2 **Dir?iiEiCi or 1 SiiK (PIRf 2) 



I 

540 

3543 

254f 
25^ 



025336 



11 

__336 

mm 

'253 
J53 



2737 006244 

mi mm 



002434 



I ! ! 

|56| Q 



mm 

025546 



ii 



ii \\t 



017370 
016570 

mm 
mm 

015226 

!imi 



II 



m & 



1 ^ 

2576 



-_5532 

(3) 025532 



Hi 

>454 ooi^o^ 
i456 

?00 004737 

m 



iiim 



T197$S 



BGHSOB 



«fEST 3 



002S24 
000000 8$: 



9$S 



000012 



000226 
0206S0 

021116 
002526 



012737 000002 002440 

104003 
104010 



M0¥ 
JSR 
JSR 

fl965$ 



EMT 
MO" 

MQ 

ii 

ML 



12S: 



m 



RHRD 



:88g8 

BR 

DEC 

BEQ 

WAITOS 

MOf 

EMT 

BR 

MOV 



JSR 
0$ 



60$ 



JSR 



L10025: 



BEi 

ERRHRD 

TRAP 

.HORD 

»HORD 

MOV 



EMT 

ESCAPE 

EMT 



««QOfSR eOARD BAiO DETECTIOH 
iTiST 3 



miM 



PCCHOSHD 
P?,POSHDS 



ERHEAD ;SET ERROR HEADER 



;GQ CHOSE HEAD 
-LEAR FOR POS 

OSITIOB HEADS 



>g}!EAg„FgR„POSITiaif TO 



^-clilfS?'"- 



T3,1I 



iSSf PQR GUARD BARD SEEIC 
IDO SEEK 



i,GSTAT |6Ef DiffE STATUS 

mi w 

? REPORT 



RHRD 302. 



||ti66DE 
$ 

CfllTO 

pc^r&Imait 
pc^getpos 

CURCTL 



ERR8 



||er66de 

#2,ERRSUI 



CSESOB 

TST 

CSESCAPE 



RANE MESSAGE PTR 
-^MDITIOM MESSAGE PTR 
READ? ERROR 



ISIIT TEST 
JdEC MAIT COOiT 
JSKIP If 



ILOOP 



ISET'HAIT COURT FOR 15 MS 

IliAIT FOR READY & REPORT IF iOT READY 



IGET POSITIOR 



SEQ 0096 



>check if he&ds still at 

;yes-skip 

;else report cylimder error 



IIMIT ERROR SMITCH 
;EXIT test IF ERROR 



ASSEMBLY ROUTINES MACYll 30A(1052) 22-M0V-78 
CZRLDB.Pll 23-0CT-78 14:39 *TEST 3 



16:32 PAGE 2-5 

**OUTER GUARD BAUD DETECTIOM 



SEQ 0097 



025534 
025536 



000012 
37 



80 
581 
582 



004737 

025546 
025546 

mm 

025546 104001 



017414 






.WORD 
JSR 
17$ 
BR 



L10024-. 
PC/SHAPHD 

T197$ 



C$ETST 



;G0 swap to HEAD 1 OR EMD TEST 
} ABORT RETURN 
IREDO TEST 



ISSEMBL? RQUflMES 
CZRLDB-Pll 




MICYll 30AC1052) 22-MQf-78 
14S39 «TESf 3 



mn 

013374 
016570 

021116 



002526 

017454 

002526 
002524 

016070 

mm 



021244 

000002 
021364 
020262 

013376 
000002 



013372 



002524 



iiSil^ 



16s 32 PAGE 2-6 

««OUTER aOARD B&iO DEfECTIOi 



«<^|HCREHEifJLt. FOmmH SiSiC HEAD 
;?EST 4 



SEQ 0098 



) 



PC^CHOSHD 
~-SHD 




rnrnr" iSism:* 



iSP 




f4SS 



104003 



002440 60S: 

EllOSOB 
L10027! 



ALLSEC^MISMia 
RDHLHD 
PC,¥ERHDR 

HILIMW/MEHCYL 

?206S 

#2/ERRSHI 

CSESUB 



;ag CHOSE HEAD 

?fg|? Ir THIS IS HEAD 



SE AW 



fESf 



ICLEAR TO POSITIOli HEADS TO LOLIMIT 
;POSITIOH HEADS 



T4.1: 

JGET POSITIOM 

?CHECK If W ERROR LOOP 

;M0 - SKIP 

POSITIOIED AT DESIRED LOC 
P 
P HEW &RD OLD C¥LIiDERS 



HA1 



}CHECI 

>ao - 

;PLACE CURRENT I8T0 MEM 

;buhp for ome ctlimoer seek 

IDQ SEEK 

ISET HAI_ _^._ 
;IIAIT FOR Ri£D¥ 

;G0 fERIFY POSITOM 



TIME 15 MS 
REI~" 



;TEST 
;liO "• 
>GQ 



ST IF 
I-SKIP 

I READ 



CHECK ALL SECTORS 
ALL HEADERS 
;G0 fERIFY HEADER 



>check if hilimit re&ched 
;mo-loop 

;IIIIT ERROR SBITCH 



ASSEMBLY ROUTIHES MACYll 30A(1052) 22-liOf-78 

CZRLDBoPll 23-0CT-78 14239 *TEST 4 



2631 

111 



025756 
025756 
025756 
025756 104001 



T2065S: 

EHDTST 

L10026: 



16:32 PAGE 2-7 

**INCREMEMTAL FORWARD SEEK HEAD 



CSETST 



SEQ 0099 



1^ 



&SSe!4BL¥ ROtrtXiiS mClll 3@&CI0S1> 22-iOf-76 16S32 PACE 2-8 

CZRLDBtlll 2l-0Cf-?8 iSsIl «fiST 4 **IIICREMiMT&L fOSMIiD SEEK HE&D 



SEQ 0100 



002434 



MOV 
JSR 

pi"* 

TST 



pHEilD 



PCfCHOSHD 
DESHD 

TST 

CSEXIT 

L10030-. 

HfLtMW^RS 

PCPOSHDS 




LSECOPPLIC 
RD&LHD 
PC#VERHDR 



LOLIMM,HEIfC?L 

T216S 

#2/EftR 



C$ESUB 




T5!! 



|HEHT£L REVERSE SEEK HEAD 

;SET ERROR HEADER 
JlMITIALIZE TEST 
KLEAR DRIfE 

7C0 CHOSE HEAD 

JtEST if head SELECTED 

;YES - SKIP 

;else exit test 



>SET TO POSITIQII HDS TO HILIMIT 
JPOSITIOH HEADS 



;GET POSITIOSi 

;CHECK IF IN ERROR LOOP 

}9Q - SKIP 

ICHECK IF POSITIOHEO AT DES LOC 
mo - SKIP 
lELSE SVAP 






OLD AND REM CYLINDERS 
CURRENT INTO REM 



IdEC FOR'ONI CYLINDER REVERSE SEEK 
;SEEK TO IT 



?set mait for 
Jmait for — 



. _ 15 MS 
READY 



IfERIFV POSITION 

;test if use all sectors 

JiO-SKIP 

;else read all the hdrs 
>verify the headers 



JCHECK IF REACHED LOLIMIT 

;B0 - LOOP 

;I»IT ERROR SMITCH 



Jiiiiik, 



ASSEMBLY ROOTINES MACYll 
CZRLDB-Pll 23-OCT-78 14139 



30A(1052) 22-N0V-78 
*TEST 5 



268 



m m\tt 

(3) 026166 



104001 



\in: 



EMT 



168 32 PAGE 2-9 

**IMCREMENTAL REVERSE SEEK 



C$ETST 



SEQ 0101 



ISSEHBLf HOUTIiSS 
CZRLDB«ni 23-0Cf-78 



HlCfll 

14S39 




30aC1052) 22-ifOf-78 
*?ESf 5 



000002 
021364 
020262 

013376 
000002 



002434 



mm 



002S24 
002524 



013372 



002524 
00244Q 



sesii^ 



2SI 
BGHSUB 

T227$! 



5SS 
7$: 



9S: 

60$: 

EMDSUB 



m 






163 32 PAGE 2-10 

*^iMcmnmfkL m^mst ssii h£&d o 



iftSf 6 
|P2?06|£ERHgID iSSf SifiOS Hg&Dii 



SEQ 0102 



fSiS 



65$ 



BME 
EXIf 
EMf 
.HORD 



oi^DS 



icH|| fgi..Pgii?ioii hos to LOLimt 



ikSgp"" 



I 

hIidm 

ih 

C' - 
L 



tn,msMw 



CfEXIl 
■ 10032-» 



Si Pol 

l» HDS 

if fr ilAD SPECIFIED 
IS HEAD 
EST 



}no ' SKIP 

iTESf — - 

;mo - 

;ELSE 



EXIT TE 



EM1 

^sr 

BMC 
BCC 
CMP 

§P 

BR 

N0¥ 

INC 

JSR 

SSI 

JSR 

JSR 
60S 

BIT 
BEQ 
JSR 

60$ 

CMP 
BHI 
MOV 



CSBSOB 

OOP '■Y*;"" 

OMPLe|| is 

g|RC?L^HSMC¥L 

PC,OiSlilP 

cieC¥L^iEMC¥L 
iSHCYL 

PCXSEEK 

PC^ROfMilf 
PC^fERPOS 



T6«l! 



;GE? CUiiiif POSITIOli 
ICHECS IF In ERROR LOOP 

;iO - SKIP 






kt OESIREO LOCATIQg 

t 

AMD iEU CVLIiOER 



iMOfE CORREMT IMTO MEH 

>BUNP ■EflclL FOR DIE CYL FHRD SEEK 

IDO SEEK 

iSSf Hill CgOiT 15 US 
IMAIT FOR RI&D¥ 

;?ERir¥ POSIflOg IS CORRECT 



|ALLSEC,MISIIIM ;CHECK IF USE ILL SECTORS 



PC,RDALHD 
PC^?ERHDR 



hilimw,8ewc¥l 
iI/eIrshi 



IMO-SKIP 

;elss Ibid all headers 
??erif¥ headers 



;CHEC{C IF DONE 
/MO.- LOQ- 



;I!IIT 



m 



OR SMITCH 



ASSEMBLY ROUTIMES MACYll 30A(1052) 22-MOY-78 
CZRLDB-Pll 23-DCT-78 14s39 *TEST 6 




104003 



104001 



L10033S 
T2265S: 

mii: 



16:32 PAGE 2-11 

««INCREMEMTAL FORWARD SEEK HEAD 



CSESUB 



SEQ 0103 



CSETST 



ASSEMBLf ROOflMES 
CI8LDi«Pll 23"0Cf«78 



M&CfU 3©IC1@S2) 22-S0f-78 16l32 PAGE 2-12 

14230 «ffST § ««IiCRiMgifAE. WmUkm iilE. HEID 1 



SEQ 0104 



246 



5' 



3 

3 

6 
^6L 
26^ 



IIP 

6422 

li 

h 



il I 



urn 

02661 



0^_ 
0|6! 



3 

n, 



01 



m 



in: 



I illi 

111 ii Sli 



0|6S52 

ofessi 




3777 026612 
2778 026612 



illif 
ill 



002434 



.SBfTL 
B€M?3t 



f233$S 



BGMSUB 



uljt 104003 



mm 

000003 
000001 
01S226 

mm 



000012 

mm 

021244 
000002 

017414 



002524 



000000 7$S 



9$s 



n$s 



002440 



nsS? 7 



HOf 

MOV 
JSR 
f2365$ 



SMT 
MO? 

m 

ml 



Un 



EHRRiD 
fRr 

.MC 



fRJkP 

.WORD 



MOW 
EMf 
BR 



iimh 



MO? 



««pigR GOJRD 3IiD DIf ECflOU 
iTESf 7 



|P2T07E£SRHEIO ISET ERROR 



SET ERROR HEADER 

~— ~ ■ —E TESf 
?E 



T7 3 3 



PC^CHOSHO 

pe,poiiDs 



;GQ CHOSE HEAD 

SSBf rOR POSITIOM TO 255« 

fpOSlf lOi flEADS 



BR 
PIC 



UAffOS 



CSBSOS 

#3,^R1 

iDR0fllSI^SLCS(i2^ 

H^eSTif 

SIICODE 



RR4 



15S: 
T2365S: 



EMT 

ESCAPE 

EMT 

.tfORO 

JSR 



3- 

llO./RO 



PC,VERPOS 
#2,ERRSIII 

CSESUB 

TST 

CSESCAPE 

L10034-. 

PC^SilAPHD 

T233$ 



T7-1S 
iSEf rOR IBNER GUARD BAiD SEEK 

;SEf ff&If COONT 3 MS 
IF READ? 
fS Sf&fOS 



mm 



SSA6S PfR 
ON MESSAGE PTR 
ERROR 



JEXI? TEST 
IDEC HAIT COOMT 

{skip If 

ShAIT 100 US 



ILOOP 

;SE? MAIT C0D»T 15 MS 
leO MAIf FOR READY 



;G0 fSRIF? POSITION IS 255 
>ISIT ERROR SBITCH 

;EXIT TEST IF ERROR 



;G0 S8AP TO HEAD 1 OR END TEST 
;ABQRT RETURN 
IREPEAT THE TESTS 



ASSEMBLY ROUTINES HACYll 30A(1052) 22-MO?-78 16s32 PAGE 2-13 

CZRLDB.Pll 23-0CT-78 14S39 *TEST 7 **IlillER GUARD BASD DETECTIOM 



SEQ 0105 



2779 026612 



026-__ 

(3) 026612 

(3) 026612 104001 



EMDTST 
L10034: 



CSETST 



ISSEMBL¥ ROUflMES UlCfll 30IC10S2) 22-igf-78 1SS32 PAGE 2;|4 „^«^«^na 
CZBLDB«P11 23-0Cf«78 14s39 *f EST 7 '^^IMHER GOIRD BUD DETSCflOM 



SEQ 0106 




006402 

am 



27036 
27036 



23737 



>70 



oia 

013400 



021116 



002526 
017454 
[52 

IS? 

mm 

021244 
000002 
021364 
020262 

013374 
000002 



DESHO 




liCRglliMfSL RifERSE SEEK HE^D 



RHEIO 



MlSHIi 



CHP 
BLO 

MOV 



5S 

cOrcyl^memcvl 

__RCYL#HEtfCYL 

HEUCYL 

PCXSEEK 

PCVERPOS 
MLLSEC,MISIIIM 
PC^RDILHD 
PC#¥ERHDR 

LOLIHa/MEUCYL 
#2,eIrSMI 



I SB' 

r 



ilDIR 
E&R 



SBf ERROR HEIDSI 

!»%«! I'll 



1 

T8! 



|SE| f( 



01 HDS kf HILIMIf 



pHEAD SPECIFIED IS 



EST 

iti ixlf TiSf 



TB.l: 

;GEf COHREMT POSIflOH 

;CHECK IF IH ERROR LOOP 

JHO - SKIP 

?CHECK IF POSIflOMED AT DESIRED LOC 

;!iO - SKIP 

|ELSE SWAP OLD AMD MEH CYLIMDER 

lioV CUR TO 8EU 

;DEC NEilCYL FOR 1 CYL RE? SEEK 

;D0 SEEK 

SSET WAIT FOR 15 MS 
;liAI? FOR READY 



>VERIF¥ POSITIOM 

ALL SECTORS 
HEADERS 
J¥ERIFY HEADER 



;test 
Srea 



T IF A 



?CHECK IF AT LOLIMIT 

;N0 - LOOP 

JIHIT ERROR SHITCH 



ASSEMBLY ROUTIMES HACYll 30A(1052> 22-MO¥-78 
CZRLDB^Pll 23-OCT-78 14:39 *TEST 8 



II! 



7036 
7040 

7040 



104003 



104001 



T2465S: 



16:32 PAGE 2-15 

**IHCREHEMTAL REVERSE SEEK HEAD 1 



C$ESUB 



SEQ 0107 



CSETST 



&SSiMBL¥ ROOfliSS 



mtrgtt 

i4af 



3iaCl@S2) 2t«iOf-78 

*?iS? f 



iSs32 P&eS 2-16 

**SiiK fSSfS 



SEQ 0108 



iiiiiii 
iiiiwf 




02 

027270 
027272 



Hi 
H 

021116 

mm 
mm 

mm 

013374 
902S24 
013376 



021116 
002S26 

mm 
mm 

021244 
000002 



002434 



104003 

104010 
000044 
023737 



002524 



013374 
003S24 
013376 
@02S24 



002S24 



002440 



ilSi!^ 



T256SS 



f258$l 



f257$S 



9$! 



ill 



3 
SOB 



13$l 




;fSSf 9 
PC^GEtPOS 



SESI fiSfS 
SHEID 




EMf 
IBLOOP 



EIDSUB 
L10041: 



CSBSOB 

OMPLifi 13$ 

PcJsEfPOS 
> CDHCfWiiMCfl. 



PCfiSPQS 
#2,E8RSHI 



013376 002524 



EMT 

ESCAPE 
EMt 
• «OSD 
CHP 



CSESCIPE 
L10040-. 
HILIMM^PEMCtL 



f9S 






?6Ef COiifif POSIflOH 



Hit MTt 



NEH 
IBLE OP SEES DIFP 



rSREiCE IS m BQOMDS 



P5 TO"|i|Iiir PosiTioi 

CBicI I ' If 08 PAST LOLIHIT 

fu - SK P 

ELSE SET TO LOLIMI? 

IelsI isf 



If HILIMIf OR GREIfER 
VoR HILIMIf 



f9»i: 
ICHECK IF II ERROR LOOP 
;iO - SKIP 
iSiT COSSiMf POSIflOM 

_Hg&OS If DESIRED POSIflOl 
CORiEHf &iD MEM CfLIlDERS 

iSEf Mllf COOlif 
iHllf FOR REJIDf 

IfERIff POSIflOM 

llilflllLIZE ERROR SMIfCH 

lEXIf fESf IF ERROR 

;CHECK IF SEEK MAS fO HILIMIf 



ASSEMBLY RODTIMES 
CZRLDB-Pll 

it 

30 

627134 
027334 

mii 




23-0Cf-78 14:39 

"1; 



H&CYll 301(1052) 22-M0f-78 
*fESf 9 



BHE 

MEG 

BR 

CMP 

BNE 

CMP 

BHE 



013374 
000377 
017414 



002524 15$S 



104001 



f2517$S 



f2565S! 

EMDfSf 

L10040: 



jSR 



2565$ 
BR 



16132 PIGE 2-17 
**SEEK fESfS 

LOLIHH^SEMCfL 

|#255, 
PC,SSAPHD 



T256$ 



CSEfST 



SEQ 0109 



SHO — SKIP 

JeLSE SEf R5 fO REPEAf DIFF IH REVERSE 

;fESf IF LASf SEEK WAS fO LOLIMIf 

;liO - GO DO SEEK fESf 

;CHECK IF ALL fABLE DIFF OSED 

}M0 - SKIP 

;G0 SMAP fO HEAD 1 OR ESD fESf 

;ABORf REfURM 

;REPEAf fESf HEAD 1 



^SSgMBL? ROUfI 
CSit.DB«Pll 



BES MlCfll 

23-0Cf-78 14l3f 



39I(i§3ai 



if 



104003 
104010 



mi 



Hi) 
mm 
mm 

021116 
003324 



021116 

002S26 

017454 
016070 

005670 
020650 

021244 

002532 

040000 
013374 
000002 



002434 



013372 



013372 
002S24 



002524 



013372 
002524 
002440 



22-iOf-78 

fiSf 10 



B§8II^ 



?2§i|3 

2$s 

5$s 

?267|8 

seisos 



18$! 



16S32 PAGE 2-18 



*»FOaMJItO QSClLLIflMG SEES 



SEQ 0110 



tHEID 




|SR 



L|||^|E«CfL 

PC^SETPOS 
R5#iEIIC?L 



iOB 
1431 



mLQOP 

BicOMPLE 

JSR 

SIS 
ill 

3§i 
iu 
m 

BIT 

BEQ 

H0¥ 

BR 

MOV 



18$ 
;GEfPOS 
CORCfL^MEIICfL 



Uh 



,OWSHJIP 
PdSElK 

PC/fERPOS 
DESSei 

191 

IIBiCTL 
fLOCfL, 



toll 

#2. 



MISMIH 
MH/MEMCYL 
ERRSHI 



EMT 

ESCAPE 

EMT 



CSESUB 

?Sf 

C$ESCAPE 



flOSI 



gCiD 



Lsi i|f LOHER LIMIt 

,'SflT"r»SJ ggjg? ""• "» « 

;Gi? HEID POSIflOi 

ILOIO mw CfLliOii lifO lEIfCfL 

?10,1S 

iCHECfC If IH ERROR LOOP 

iiO - SKIP 

|6ET POSIflOM 

iCHiCiC IF HSIDS Af DESIRED LOC 
110 - SKIP. 



ISMAP OLD AID Mi» 

;do seek 

;fERIF¥ HEAD POSIflOi 
;?EST ir JOSf SEEK REf 



ir J0S1 

Ef 



SEEK TO 
LIMIT SPEC* 



IcHECK ., 

liO - SKIP 

;ELSE SET LOM LIMIT 

;IiIT ERROR SHITCH 



;EXIf TEST IF ERROR 



ASSEMBLY ROUTIMES 



CZRLDB 



23-OCT- 




MACYll 30A(1052) 22-MOf-78 16s32 PAGE 2-19 



.632 
0654 



027632 104001 



14139 



020000 013372 



*TEST 10 



000400 
017414 



20$: 



T2665|S 

EMDTSf 

L10042: 



.HORD 

BIT 

BiE 

IHC 

CMP 

BHE 

JSR 

T2665$ 

BR 



"^^FORHARD OSCILL&TIIG SEEK 



L10042-. 
iHICYL^HISillM 

R5g«56. 

pc^sIaphd 

T266S 



SEQ 0111 



;TEST IF UPPER LIMIT SPEC'D 

>¥ES - SKIP 

;B0MP R5 

;ALL CYLINDERS DONE 

;H0 - GO DO NEXT CYLINDER 

?G0 SWAP TO HEAD 1 OR EMD TEST 

; ABORT RETURN 

;G0 DO TESTS 



C$ETST 



^ 







30&(1052) 22-BOf- 
«?ESf 11 



16132 PISE 2-20 

««tgfEiSg OSCILL£f IMG SEEK 



SEQ 0U2 



002434 



mm 

002524 
013372 



f275$l 

2$s 

5$S 

T27SIS 
BGSSOB 



002524 



18$S 



002524 
013372 

002524 

002440 



*TES? 11 



JSR 
JSR 

BE@ 
MOf 
NOV 
IIT 
BE' 



60S: 

EMDSUB 

L10045S 



Jiil^f!^ 



IHEID 



HOSHD 
MEMC¥L 
MISHIH 



Hrrss™""- 



i' 



I 



;69$ 

65$ 



P€,CHOS 

PC,6E?P0S 
RS^SEMCfL 



EMT 

INLQOP 

EMf 

BICOMPLE 

BCC 

JSR 

60S 

CMP 

BNE 

JSR 

JSR 

60$ 

MOV 

JSR 

60$ 

JSR 

m 

BNE 

MOV 

BIT 

BEQ 

MOW 

BR 

MOV 



18$ 



C$BSUB 
5|IMLP 

PC/GETPOS 

CORCVL^MEWCYL 

PCjOMSIIIlP 
PC#XSEEK 

PC#¥ERPOS 

DESSGN 

pis.^NEHCVL 

IhicyL^mishim 
hilims/wewcyl 

18$ 
#2/ERRSHI 



104010 



EMT CSESOB 

ESCAPE TST 

EMT CSESCaPE 



QSCILLATIiC SEEK 



ERROR HEADER 



Tils 



lliiTl'ALIZE TEST 
;CLEAR DRIVE 

;GQ CHOSE HEAD 






OUT 

_ if I 

P - SKIP 
ELSE SET 



UPPER 



55, 
LIMIT SPEC'D 



SELSI 

mi 



___ UPPER LIMIT 
RS FOR FIRST SEEKS 
LO LIMIT SPEC 



iCHtClC IF I 



LIMIT 



?61f P0SITI08 
>SET FOR MEXT SEEK 



JCHECK IF IM ERROR LOOP 

>1iO - SKIP 

JELSE GET POSITION 

;CHECK IF AT DESIRED CYL 
IHO - SKIP 

lELSE SWAP OLD AMD MEH CYL 
)D0 SEEK 



>SET BAIT 
lUllT FOR 



FOR 120 MS 
READY 



JVERIFY POSITIOM 



ICHECK IF JUST SEEK FWD 

>lEiE"slEK**TO TO 255 
Jtest if HILIHIT SPEC'D 
}KIQ - SKIP 
JSET TO UPPER LIMIT 

;I»IT ERROR SWITCH 



;EXIT TEST IF ERROR 



ASSEMBLY ROOTIHES 

CZRLDB-Pll 23-0CT-78 14S39 



MACYll 30A(1052) 22-M0V-78 



Ml 

3003 



l\ 




104001 



040000 013372 



017414 



*TEST 11 



16:32 PAGE 2-21 

**REVERSE OSCILLATIMG SEEK 



20$: 



T2765 
ENDTS' 
LlOO' 



B 
5SS 

sf 

44: 



.WORD 

BIT 

BIE 

DEC 

BPL 

JSR 

T2765$ 



H8?«*- 



R5 

T276S 

PC^sS 

T275S 



YL,MISIfIi8l 



APHD 



CSETST 



ITEST IF LOLIMIT 
?YES - SKIP 



;dec cylihder coomt 

;IF STILL POSITI"~ 

Jgo swap to head 



SEQ 0113 



;ABgRT RETURN 
;LOQP AGAIN 



POSITIVE/ DO SEEKS AGAIH 
- "—- 1 OR END TEST 



ISSEMBLf ROUflMgS 
CIitDB«Pll 23«»0Cf-»?8 



%W- 



002434 




30IC1052) 22-iOf-IS 
*TgS? 12 



16s 32 PISE 2-22 



mik 



m 



4$ I 



8SS 



9$l 



SEQ 0114 



17S2 



*TEST 12 



iPhrd 

TRIP 

• MORD 

• MQRD 
JMP 
TST 
BPL 
ERRHRD 



IfESf 1 

|P2fl2E^ERHEID 
P|SMOII 

m|smim 

41 S 

PC^TSflMf 

PC^GSfifR 

r 

pIsCiT 
MEMCVL 
PC^ISSEK 

PC^¥ERPOS 

PC^CHOSHD 
iOFOOT^RO 
lOFOUfO^Rl 
lOROUT^ftS 
ORO0TU,R4 

rdheId^temps 

|BITl0^fEMP8 
PC^XSEEKf 



f 



i:. 



1201 
T,CS 



SfESf I 



iSTEf ERgOg HEIDER 

IfiSf If Piss 



'fl2ss 



KIP 

r MiMUIL fESfS MERE RUB 

f fSSf 



iffefflSii lE^lESt 
;CLEli OlfVE 



ill *88gPfog'ciilR" 



IIl. . 

;CLg&R 



ME VILOE 



;CLEp PASS COOiTgR 

|¥SRIF¥ POSIflOM 

;60 CHOSE HEID 

;Sgf PfRS FOR 1 C¥L FMD OOTER fINER 



;SET MEiCYL fO C¥L 1 

jSEf COUMfER FOR SEEK LOOP 

IBUILO READ HEADER CONMAHO 



2«^,ERR6 



100 SEEK BUILD BUT DO iOf SfARf 

ILOAD RL REGISTERS 

ISTORE RO 

;MIIT FOR lifERRUPf 

;liAI7 FOR IHTERRUP? 
;GEf MESSAGE POIMTER 



ICHECK IF AMY ERRORS 
;MQ - SKIP 



ASSEMBLY ROUTIiES 
CZRLDB«P11 23-QCT--78 




MACYll 301(1052) 22-iO¥-79 16S32 PAGE 2-23 
14539 *TEST 12 **SEEE TIMIMG 



SEQ Oils 



3078 
3079 
3080 



030464 

um 

030476 
030500 
030502 
030504 
030506 
030510 



104052 
010555 

:nm 

004737 

ukm 

001403 

mm 

000402 
060513 
005514 



031676 



003720 



002560 
021244 



002532 



002656 
017454 



000000 



002456 



14$l 




15$l 
16$l 



18SI 

loss 



24$S 



TRAP 
,WORD 
«MORD 
JMP 

SAIfUS 

MOV 

EMT 

GETtIM 

EMf 

M0¥ 

M0¥ 

MOV 

JSR 

m 

BEQ 

ADO 

ADC 

BR 

ADD 

ADC 

DEC 

BEQ 

JSR 

BR 

SUB 

SUB 

M0¥ 

CLC 

ROR 

ROR 

CLC 

ROR 

ROR 

DEC 

SHE 

IHC 

CMP 

BNE 

M0¥ 

JSR 

65S 

MOt 

JSR 

65$ 

JSR 

65$ 

M0¥ 

MQ¥ 

H0¥ 

MOV 

MOV 

JMP 

CMP 



TSERCODE 
120- 



_J02 

ERR6 

65$ 

DONE 

tEMP8,RLCS(R2) 

|2000» 

R5 
CSGTIM 

PC^VERPOS 

DESSGN 

15$ 

RS^JRO) 



com 



R3) 

T 



18$ 
PC,OHSMAP 

fiol 

m 

lOS 

PASCNT 

flfPlSCNT 

|127.,NEHC¥L 
PC^XSEEK 

PC/RDySaIt 

PC^VERPOS 

#OFMID/R0 

|0FMIDU,R1 

tORMID,R3 

|0RHIDU*R4 

|l28«,MEMCYL 



ICLEAR IMfERROPT FLAG 
ILOAD RL REGISfER 

;miit for interrupt 



IGET time used 



IsEf IF ERROR TO REPORT 
?¥ERIFY PQSIflOM 

;CHECK SHICH SEEK DIRECTION 
;RE¥ERSE - SKIP 

;add to formard total 

;add in overflow 

;SKIP 

;add to reverse total 

;add im overfloi^ 

;dec seek couht 

5SKIP IF 

ILSE SWAP old^amd new cyl 



SE 

com 



;S0B COMStAif for read header TIME 

5set shift count to divide by 64 
;di¥ide both totals by 64 



;B0MP PASS COUNT 
;TEST IF PASS 1 

;np - SKIP 

JELSE SET TO POSITION HDS TO 127 
IDO SEEK 

>SET SAIT COUNT FOR 300 MS 
JMAIT FOR READY 

IVERIFY POSITIOM 

jSEf PTRS FOR TIMING 



1 CYL SK AT 127 



11, 



#2,PASCMf 



;SET MEiCYL TO 1 
IDO SEEK LOOP 
ITEST IF PASS 2 



kSSEmiH RQOTIiiS 
CZRLDB-Pll 23-0CT-78 




14S39 

mm 
mil 

021344 



301(1052) 22-iOf-7g 
*TESf 12 



16832 P&GE 2-24 
**SSSK tIMIMG 



SEQ 0116 



021344 
000004 

mm 
mm 

021244 
QQa612 



002524 



002524 
002654 28$S 



002524 
002654 32$S 



002524 



002524 



000005 002654 36$: 

002524 
016070 

021244 



:i54«£MEHCfL 
CXSEEK 



mnnn, 

PC#?ERPOS 



lormirRO 

loriNOfRl 




— „C¥L 
PC/ISEER 

PC^fltPOS 

j|p&SCIIT 

PC^fEtPOS 
|HriM#RO 

5|P&SCIIT 

nifcfL 

PC^XSEEK 

#3000. ^Rl 
PCRDYWAIT 

PC,?ERPOS 



;!5EJj0|;ftr TIME 



1 CYL SEEK AT IllllER 



I MO - SKIP 

ISET BAIT COOWT FOR 300 MS 
;UAIT FOR READY 

IfERIFf POSIflOM 

;SET POIBfERS 



;LOAD lEH CYLXRDER 

j¥Ssf» mi 3 



^- OP TO TIME 128 CYL SEEK 
OTSR LIMIT 



ifisf ir I 

lEsi ilr 

I AT 00TB 

If laipf posiTioi 

ISET POISTERS 

;L0A0 IBMCYL FOR 12B CYL SEEK 
ITEST If PASS 4 

8 Fop to time 128 cyl seek 
BR limit 

iSEf WAIT COURT FOR 300 MS 
fuAIT FOR READY 

ifERIFY POSITIOH 

;SET POISTERS 



;SET MEBCYL TO 255 FOR 128 CYL SEEK 
>D0 TIMIMG LOOP 
;TEST IF PASS 5 

;SEsi SET UP TO TIME 256 CYL SEEK 
; OYER ALL SURFACE 

;SET HAIT COUMT FOR 300 MS 
JhAIT for DRIVE READY 

;YERIFY POSITION 



ASSEMBLY ROUTIHES 
CZRLDB.Pll 23-0CT-78 



MACYll 30AC1052) 22-»0f-78 
14:39 *TisT 12 



16332 PAGE 2-25 
**SEEK TIMIMG 



SEQ 0117 



81 



03 . 



031406 




002524 



39$: 
40$: 



>SET POISTERS 

;SET NEHCYL 
IfALDES 



IAFMID#R0 
AFMIOO^Rl 

CSPMTF 

tl0#SP 
FMT5,#BASADD^RLBAS,#DR?!!AM,<B,RLDRV*1> 

RLDRf* 



♦l^CSP) 

. '5*— 



#DRY«AM#-( 
RLBAS^-{SP, 
|BASADD<-(SP) 
|fMT5£-CSP) 



IpSRd*" 
CSPIITF 

|fmIiL#LABIM^#LABMID/ #L ABOUT/ #LABEXP 
LABEXP#-(SP) 
LABOUT/-(SP} 
LABMID/-(SP) 



w 



|lABIN/-(§P) 

|fMT18/-(SP) 

CSPMTF 

iFMff§,#LABOCF/OFIH/OFHID/OFQOT,EXOCYL 

EXOCYL/-(SP) 

OFOUT/-(SP) 

OFMID/-|SP) 

!LAb6cF/-(SP) 
FMT19£-(SP) 
P^rRO 

CSPHTF 
|fmIi9/#LAB0CR/0RIH/0RMID/0R0UT/EX0CYL 

IxocylJ-csp) 
orout/-csp) 

0RMID,-(SP) 
ORIMz-CSP) 

!LABOCR/-(SP) 
FMT19£-(SP) 
P/Ro 



lkSSEHBL¥ ROUTIMES 
CIRLDB-Pll 23-0Cf-78 

II iltlil "'"' 
w " ' 



HICfll 
14839 




301(1052} 22 
*fgST 



000016 



iO¥-78 
12 



16S32 PIGE 2-26 

*«SiEK flMlG 



676 104001 



p?r 



liTf 



EMoisT 
L10046S 



SE@ 0118 



BF 



o#ar 

A* 

SPjrRP 

JSPBTF 
l4#SP 

ILABHCR,- 
I'd ' 

ipMir 



HBHCF^Rrii^HFOUf^ilHCfL 



) 



gHCR^Hili^HROOf^SIHCVL 



IV 



) 



...2i#»L&BACR^iRMID#EIACfL 



llr^' 



l&M 



CSEfS? 



ASSEMBLY ROUTIMES M4CY11 304(1052) 22-iO¥-78 16l32 P&GE 2-27 

CZRLDB.Pll 23-QCT-78 14s39 *?EST 13 **BISIC REID DATA (BID SECTOR FILE) 



SEQ 0119 



3183 



031700 
031700 
031700 

8ii??! 

031716 

mil 
Mi 

031742 



006477 002434 



002524 2$S 




mm 

000001 002546 
002546 

000007 
000400 



,SBfTL 
BGMTST 



4$: 



7$: 

8$; 

10$: 
ll$s 
12$: 



MOV 
JSR 
JSR 
65$ 
MO? 
Bit 
BEQ 
TST 
BHE 

.WORD 

M0¥ 

JSR 

65S 

M0¥ 

JSR 

65S 

JSft 

65S 

CLR 

MOV 

MOV 

MOVB 

CLRB 

CLR 

MOV 

MOV 

MOV 

MOV 

JSR 

39S 

TST 

BMI 

TST 

BMI 

TST 

BNE 

TST 

BHE 

CMP 

BHE 

MOV 

BR 

TST 

BNE 

MOV 

MOV 

ASL 

DEC 

BME 

BIT 

BEQ 



;test 13 

|P2T13E^ERHE1D 

PCTSTIMT 

PC/GST&TR 

#1#DESHD 

Ihejidlm^misiiih 

HEADW 

TST 

CSEXIT 

L10047-, 

#255.£NEWCYL 

POXSEEK 

#3000. ,R1 
PC,RDYWAIT 

PC^VERPOS 

DESSEC 

!FBSFIL,TEHP5 
16.,TEMP6 
UHOERCT 
OCERR 
TEMP3 
TEMP5/R1 



TEMPe^RO 

#IBDFP<-R3 

l2/ERRSai 




READ DATA (BAD SECTOR FILE) 

T13S 
;SET ERROR HEADER 
;lliITIALIZE TEST 
;CLEAR DRIVE 

;SET TO HEAD 1 
;TEST if HEAD SPEC'D 
JNO - SKIP 
;TEST IF HEAD 
;N0 - SKIP 
;ELSE exit TEST 



JPOSITIOH HEADS AT 255 
;D0 SEEK 

;SET WAIT COUHT FOR 300 MS 
?HAIT FOR IMTERRUPT 

^VERIFY POSITION 

;SET FOR SECTOR 

;SET TEMP STORAGE FOR FACTORY BS FILE 

>SET MAX SECTOR COUNT 

;SET FOR NO ERROR COUNTING 

;CLEAR LOCAL ERROR COUNTER 

;CLEAR ONES DETECTED FLAG 

;INIT POINTERS 



;INIT ERROR SWITCH 
;D0 READ 

;test if word not neg 
;yes^ bad fht error 

;ELSE test word 1 NOT NEG 

;YES - BAD FMT ERROR REPORT 

;TEST WORD 2 IS 

;N0 - SKIP TO FMT ERROR RPT 

?TEST WORD 3 IS 

;N0 - SKIP TO FMT ERROR RPT 

;TEST IF NEXT WORD IS ALL I'S 

?H0 - SKIP 

;ELSE SET I'S DETECTED FLAG 

;SKiP 

ITEST IF ONES HAVE BEEN DETECTED 
;YES - SKIP TO FMT ERROR RPT 
;STORE CYLINDER WORD 
lALIGN IT TO LOOK LIKE HEADER 



;test if head 1 

JHO - SKIP 



iSSENBLY RQOfliES 




mcin 301(1052) 22-liO¥-78 
23"-QCf«78 14S39 ^ESt 13 



16S32 PiSE 2-28 

**BiSIC R£ID DITI (BID SECTOR FILE) 



SEQ 0120 



mm 

004066 
002546 
000044 
003076 

mm 

002536 

mm 

©03076 

000004 
005533 

005560 



0030 
002662 



002554 
002552 

hm 

150276 



0025S2 
002536 



002440 
003074 



15$S 
37$: 



002554 41$S 



43$l 
45$: 



48$l 



65$: 



BIS 

BIC 

BIS 

CMP 

BME 

TST 

BEQ 

CMP 

BEQ 

MOV 

M0¥ 

MOV 

BR 

IMC 

MOV 

IMLOOP 

EMf 



104001 



66$: 

m 



8| 
fEHP3 

iSBSFIL^ TEMPS 
36«^TEHP6 
20»/DESSEC 

LOCERR 
#-l^§TEMP5 



^TEMPS 



iMPLETE 



CMP 
BNE 

W 

SRBKRD 
.WORD 

.mm 

CMP 

BEQ 

BR 

ADO 

BR 

MOV 

ERRHRD 

TRAP 

.WORD 

«aOR0 

BR 

NOV 

ERRHRD 

TRIP 

.»ORD 

.MORD 

BR 

MOV 

MOV 

TSTB 

BEQ 

IMC 



C$IliLP 




|SSEC^TEMP6 

gSF^R3 

RRl 
CODE 

fSBSriL^TEMPS 

m 

JI^DESSEC 

#IfmTER£R3 
1302»^|rERRl 

tIercode 

ERCODE 




IliSERT HEAD BIT 

StLEAR ALL BUT SECTOR 

lliSERf SECTOR MUMBER 

JcPeCK if IBOFF EMPTY 

}m GET lEXT CVLIHDER 

{else test if I'S DETECTED 

?T0 HAiV ERRORS - REPORT 

ICHECK IF SOrtMARE BAD READ 

JVES - SKIP 

lELSE CHAMGE POIHTERS 

s HAK SECTOR NOMBER 

} SECTOR SUMBER START 

IDO READ 

;BUMP LOCAL ERROR COUHTER 

IVES - GO DO READ 
ICHECK IF ALL SECTORS READ 



IfSSf IF SOFTaARE FILES CHECKED 

IVES - EXIT 

lELSE GO CHECK SOFT«ARE FILES 

IBUMP fO MEXT SECTOR 

IGO DO READ 

ISET RESULT MESSAGE POIMTER 



IGO CHECK FDR LOOP 
iSEf RESOLT MESSAGE PTR 



|GD CHECK FOR LOOP 

I lilt ERROR SWITCH 

ISET BAD SECTOR FILES VALID FLAG 

ifEST IF LOCAL ERRORS 

>iO - SKIP 

lELSE B0MP ERROR COUiT 



I?: 



C$E?Sf 



ASSEMBLY ROUTIMES 
CZRLDB«P11 23«0Cf-78 




30A(1052) 22-MOV- 
*TESf 14 



78 16 



32 PAGE 2-29 
**feJRITE/READ DATA (PART 



1) 



SEQ 0121 



002434 



002524 



•SBTTL 
BGMTST 



*TESf 14 



T306$: 



f307S: 
BGNSOB 



T310S: 



002440 60$: 

ENDSUB 
L100513 



032514 



10$: 



11$: 



13$: 
T3065S 

mil 



MOV 

JSR 

JSR 

JSR 

T3065$ 

JSR 

CLR 

CLR 

CLR 

JSR 

T3065$ 

MOV 

JSR 

t3065$ 

JSR 

f3065S 

CLR 



EMT 
JSR 
»MORD 



JSR 
60$ 
JSR 

60$ 
JSR 
60$ 

MO? 



EMT 

ESCAPE 

EMT 

«MQRD 

CMP 

BEQ 

IMC 

BR 

JSR 

T3065$ 

CLR 

JSR 

l¥ 

IHC 
BR 



iTESf 14 

tP2Ti4E^ERHEAD 
PC^CSBSVD 
PC^TSTIMT 
PC/GSTATB 

PC,CHOSHD 

DESSEC 

MEBCYL 

T310$ 

PC^XSEEK 

#3000. ,R1 
PC^RDY&AIT 

PCVERPOS 

f310$ 



CSBSOB 
RS^DAfGEN 

PC^XIRITE 

PC^XREAD 

PC^DATCOM 

#2,ERRSMI 

CSESUB 

TSf 

C$ESCAPE 

Ll0050"« 

|8«i.T310$ 



**SRITE/READ DATA (PART 1) 



los 

III?! 



PC^SMAPHD 

T310$ 
PC/BSCHK 

T3 06$ 

MEHCYL 

11$ 



C$ETSf 



T14S 



ISEf ERROR HEADER 

|G0 CHECK IF BAD SECTOR FILES VALID 

UNITIALIZE TEST 

ICLEAR DRIVE 

|G0 CHOSE HEAD 
I SECTOR 
I CYLIMDER 
ICLEAR PATTERN SELECT 
IPOSITIOM HEADS 

ISET MAIT CDUMT FOR 300 MS 
liAIT FOR READY 

IVERIFY POSITION 

ICLEAR PATTERH SELECTOR 



IGEHERATE DATA 
IPATTERH SELECT WORD 
|D0 MRITE DATA 

|D0 READ DATA 

ICOMPARE DATA 

IIIilT ERROR SWITCH 



lEXIt TEST IF ERROR 

ISAS DATA PAT 8 USED? 

IVES - SKIP 

lELSE BUMP TO NEXT PATTERH 

|DQ TEST MITH NEW PATTERN 

IGO SWAP TO HEAD 1 OR END TEST 

lABORT RETURN 

ISET PATTERN SELECT TO 

ICHECK IF SECTOR BAD 

lYES RETURN - SKIP TO 13S 

|H0 RETURN - DO TEST THIS SECTOR 

IBUMP TO NEXT CYLINDER 

ICHECK IF THIS ONE BAD 



ASSEMBLY ROUflSES 
CERLDBaPll 23-OCf-78 




30IC1052) 22-«0¥»78 

®fESf 15 



033340 
002464 



16S32 P&GE 2-30 

**SPIiDLE flMIiG fiSf 



SEQ 0122 



iism 



002434. 



2SS 
1S2 



002524 



5$: 



6$s 



4S: 



*fEST 15 



>IP 



mm 



BIIE 
JSR 

W" 

.UORD 

«»0R0 

J MP 

TST 

BPL 

ERRHRD 

TRAP 

.WORD 

»WQRD 

JMP 

MOV 



;test 15 

|P2T15E^ERHSID 

SHI¥ 

ifm.. 

PC/TSflMT 
PC^GSflfR 

RS^DAfGEM 

DESSEC 

PC/USEEK 



**SPIiDLB tlHIiG TEST 



ERROR HEJIOER 
"" P&SS 



;SEf 1 _ 

'Ml ill, 

HaK SKIP T 



tl5!! 



PC,¥ERPOS 

lc;K5iiiiT 



(R5URLMP(R2) 
(R5),RLDl(R2) 
R5)>RLBii(R|) 
R5|;rLCS(R2) 



lUIL TESTS HERE ROM 
TEST 

?CLE£R rOR TIMIie STORSGS 

iCpAR TO SECTOR 

liO SEER 

300 MS 




ifSiir? PosiTioM 

SET LOOP CQOMTSR 

fii FIRS? HRITE 
;LOAD RL REGISTERS 



ITBST If IMTERROPT 
l¥ES " SKIP 

;gLSE mIit for timeout 

;eiT MESSAGE POIiTER 



;TEST if km ERRORS 



;iiO 



SKIP 



>SET POUTER to RL LOAD REGS 



ASSEMBLY ROUTIMES MACYll 3 01(1052) 22-i0¥-78 16132 PAGE 2-31 
CZRLDB-Pll 23-0CT-78 14S39 *fgST 15 **SPIMDLE TIMIMG TEST 



SEQ 0123 




033_.„ 
033276 



062706 



002430 
000006 

000000 
005670 



002430 
015026 



002466 



000006 



mi 



000010 
002455 



m 

0056 



05622 
:657 
3005 

000014 



7SI 



8$! 



loss 



CLR 

MOV 

MOV 

MOV 

MOV 

WAITOS 

MOV 

EMT 

GEfflM 

EMT 

TST 

BME 

JSR 

MOV 

ERRHRD 

TRAP 

.HORD 

.MORD 

BR 

TST 

BPL 

ERRHRD 

TRAP 

.WORD 

.»ORD 

BR 

ADD 

ADC 

DEC 

BNE 

MOV 

CLC 

ROR 

ROR 

DEC 

BNE 

PRINTF 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADO 

PRIMTF 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTF 




i3000»^R0 
CSMTU 

CSGTIM 
DONE 

i503.,£ERRl 

TSERCODE 

1503 

ERRl 

60$ 

T.CS 



;CLEAR INTERRUPT IMQICATOR 
;L0AD RL REGISTERS FOR 2HD HRITE 



;MAIT FOR INTERRUPT 

;GET TIME WAITED 

;TEST IN INTERRUPT OCCURRED 

;YES - SKIP 

;G0 BAIT FOR INTERRUPT 

;GET MESSAGE POINTER 

IREPORT 



§i 



04, 
SERC 



RR6 



T 

ER 

6QS 

R0,R3 

R4 

Rl 

#I/R1 
R4 

M 



661 



ERR6 



DES,-fSP 
MES/-(St' 
l.i;-(SP 



10$ 

IFMT1»1/#SRTMES 
VALD 
SRTM 
FMTl.x^ 
P#R0 
CSPNTF 

|FMf5,#BASADD^RL 

-(SPJ 

RLDRV*1/(SP) 

lRVNAM<-iSP 

-BAS '-^' 



;TEST in any ERROR 
;N0 - SKIP 
;REP0RT ERRORS 



;ADD IN TIME USED 
^DOUBLE PRECISSION 
;DEC LOOP COUNTER 

;loop until o 
;set divide count 

;CLEAR carry for DIVIDE 
^DIVIDE SUM BY 100(8) 

;DEC DIVIDE COUNT 
JLOOP UNTIL DONE 
,#VALDES 



BAS,#DRVNAM^<B/RLDRV-«-l> 



#pRVNAM4-(_- , 

RLBASf-fSP) 

IBASADD^-(SP) 



lFMT5,-tsP) 

sPcRfi 

CSPNTF 
fl4£SP 
#FMf26,#RESE3/R3,#RESE4,#MAPR0X/EXRaT 



JiSSEMBLf SOOfliES 



23-OCf«fS 14139 




MlCfll 30&C10S2) 22-10f-78 



*?ES? 15 



16S32 PICE 2-32 

**SPIiDLE flMIlG fIST 



1! 
1 



002440 



60S; 
L10052S 



MOV 
M09 
MOV 
MOf 
MOV 
MOf 
MOf 
MOf 
EM| 
ADD 
MOV 



EMf 



SEQ 0124 



IBES|4*-(SP) 
R3#-iSP) 

|fmt2|^-(§p5 
}2/Irhs»i 



C$STSf 



;IliITlALIZE ERROR SWITCH 



&SSEMBLV ROUTIItS 
CIRLDB.Pll 23-0Cf-.7S 




3011(1052) 22-iOf-78 16! 32 PAGE 2-33 

*fEST 16 **WRIfE/RiAD DATA (PART 2) 



SEQ 0125 



002434 



013372 



002336 

mm 

013372 



'Wsk 



BGW 



*TEST 16 



m''' 



1$! 
2S! 

T3100$S 

3$: 

8$: 



T3101$: 
BG8S0B 



iTESt 

pSjIsIISI 

PC/CSTATH 

PASMOH 

ilLLC¥L^MISMI« 
-8-^R5 

!T33TBL,R1 
10/R3 
gLIM«,(Rl)* 



**iR|TE/READ DATA (PART 2) 




T16!! 
ROR HEADER 
CK IF BAD SECTOR FILES VALID 

DRIVE 



?CLEAR^PASS TO 



JTEST IF FIRST PASS (QOICK VERIFY) 

}R0 — SKIP 

JtEST if use ALL CYLIHDERS 

>¥ES - SKIP 

>ELSE SET R5 TO NEG 8 

>GET ADDRESS OF WORK TABLE 
{set CLEAR COUNT 



LIMI«,T33TBL+4 



IL. ,_ 

HILIH»,T33TBL*6 

h|lim»Jt33tbl*io 
|allcvl,misijiv 

PASHUM 
3S 



;CLEAR LOCATIONS TO LO LIMIT 
JfiE 



If' 



#41 • 



CYfcTBLJR5|.R3 



177400 




,JEC COURT 

>LOOP UNTIL 

;PSERT HILIMIT 

>IMTO APPROPRIATE LOCATIONS 

;BUMP R5 

JtEST if USE ALL CYLINDERS 

3YES — SKIP 

jTEST if FIRST PASS (QUICK VERIFY) 

INO — SKIP 

;ELSE BUMP CYLINDER POINTER BY 7 

StEST if PAST TABLE 

;YES - GO TO EXIT 

;GET next table ENTRY 



clear upper byte 

;skip if not 
Sexit test 

;test if all cylinders used 

;YES - EXIT TEST 

?USE R5 AS NEXT CYLINDER 

;CHECK IF LOWER THAN LOLIMIT 

;YES - SKIP 

;CHECK IF HIGHER THAN HILIMIT 

;YES - SKIP 

IGET ADDRESS OF SEEK TABLE 

JINSERT CC IN APPROPRIATE TABLE 

; LOCATIONS FOR TEST SEEK SEQUENCE 



jSTORE table ADDRESS 

Jgo chose head 



T16«1S 



ISSEHBLf ROUfllES 
CIRLDB^Pil 23-0Cf"7i 



HICflJ 

14339 




3§IC10S2) 22~iO¥-78 



002536 
000050 



002426 
000003 

mm 10$. 

15SS 



mm 



002444 



002536 



16$l 



25SS 



002536 

im 

002444 29$S 
31$: 



32$: 



EMT 
BIC 
?Sf 



CLR 
BIS 
MQ¥ 
NOV 
CLR 
MOVE 

60 



16132 PI6E 2-34 

**MaifE/iiID DIfl CPIif 



m 

JSR 

.MORO 

BI? 

BEQ 

JSR 

fsa 

CMP 
BME 
BIC 
BIC 
BIS 
CLR 
BR 
BIT 
BEQ 
JSR 

m 

60S 
IMC 

CHP 

BHE 



2> 



SEQ 0126 



|f||||s^oprLis 

li|cif^#3 



pasci? 

""- OPFLIG 



FLIG 



ilfor 

DSSSEC 

(R4H^MESCYL 

PC^XSSEK 

PC/fERPOS 
PC^BSCHK 

|BIfO,WRfSSI 

29$ 

PC#X 



PC#XMRIfE 



DESSEC 

"'■ , DESSEC 



If- 

lioyfsiooT 



„iR kUL mSSkGE QUALIFIERS 



_ _, PIS! 
S - SKIP 

s? If r 

eHECK If LE^_ 

itil Slf fO 3 

"ESSIGE QO&L 



^IhICIC 



I ELSE S 
^Sil P| 




SS 3 
SS fHkU Z, 



IF YES CLEAR ?0 



. ^SS CQOMT to 

MiSSIGE QOIL 

-MD MRlfE SMIfCH 

kU to SECfOR 
MEXf fiBLE — 



iSEt MESS 

;cL|&a fr 

|e|f MEX 

fOQ SEEK 

;SE| B|If CgOST FOR 300 MS 
mil? rOR REIDY 



ABLE HODRi 
fOR 
~ EMf R¥ 



;GEf MEXf fABLE Eli?R¥ 
IDO SgEIC 

IfERIFf FOSIflOM 

SECfOR 

TO SECTOR NUHBE 

, „.- >UT LSD 

>G0 GEIERAfE 






- _SD 
OATH 



;?ESf IF WRITE THIS PASS 
>Mg - SKIP 

>D0 MRITE 

;IBC SECTOR 

ITEST IF. ILL SECTORS USED 



ISO - SKIP 
D5TIiiSyOPFLA6^;CL||R QUALIFIERS 



DESSEC 



I 

LAG 



fBlTl^MRTSHI 

33$ 

PC^XREAD 

PC/DATCOH 

DESSEC 

i40,^DESSEC 

16$ 



IsgAR HRIfE REQU 
f FOLLOHIMG if 
-•" ^- SECTOR 



SWITCH 

RITE QUALIFIER 




hi 

yCLikSt to 

;ELsi 

JCONPARE DATA 
;BUMP SECfOR 

;test if all sectors used 

;M0 - LOOP 



if read this pass 

SKIP 

DO READ 



ASSEMBLY ROUTIIES MICfll 301(1052) 22-M0V-78 16:32 PAGE 2-35 

CZRLDB-Pll 23-0Cf-78 14s39 *TESf 16 **aRITE/READ DATA (PART 2) 



SEQ 0127 



3527 



023727 



104003 

nm 

001004 
012737 
000410 
005037 
004737 
'33470 

m 



104001 



002536 
Ool6S4 

mii'4 



mm 

002654 000006 

mm mm 

002654 000005 



in 



000003 
002654 



8S?tfi 



8g|« 



)003 
002340 002446 



002446 



33$: 



002000 002426 37$: 

000020 002426 39$: 

002426 40|: 

002440 6o|: 

Er 



mil: 



45$: 



T3fl5Ss 

EMDfsf 

L10053: 



CLR 

CLR 

IHC 

BIC 

CMP 

BEQ 

CHP 

BEQ 

MOf 

CMP 

BEQ 

CMP 

BEQ 

BR 

BIS 

BR 

BIS 

BR 

BIS 

JHP 

M0¥ 



EMT 

ESCAPE 

EMT 

.WORD 

MOV 

CMP 

BHE 

M0¥ 

BR 

CLR 

JSR 

T3100$ 

MOV 

J MP 



DESSEC 
WRTSWI 
PASCMT 

60S 
PASCIiT,#6 



CUT, $5 



TSWI 
1 



60< 

40* 
PA? 

ni 

JFMDSKO^OPFLAG 

36S 

ilSQUTS^OPFLAG 

iOOTIHS^OPFLAG 

#2,ERRSWI 



;CLEAR DESIRED SECTOR 
;CLEAR WRITE/READ SWITCH 
;BUMP PASS COUWT 
;CLEAR ALL QUALIFIERS 
?TEST IS PASS 3 
>YES - SKIP 
;TESf IF PASS 6 
"IS - SKIP 



mh'W.? 



REQUIRED BIT 



;YES - SKIP 

;TEST IF PASS 4 

;YES - SKIP 

SSKIP 

;SET FWD QUALIFIER 

;go do hext PASS 

ISET QUALIFIER 
ISKIP 

;set message qualifier 
;go do hext pass 
;init error switch 



;EXIT test IF ERROR 



;SET FOR READ AND WRITE REQ. 
;TEST IF PASS 3 



ESOB 

T 

ESCAPE 

0053-. 

^WRTSWI 

SCMT/#3 _^ . 

I )N0 - SKIP 

33TBL*6/TBLSTR sSTORE MID POINT IN TABLE 

;go start PASS 4 

CUT ;CLEAR TO PASS 

^SWAPHD ;G0 SWAP TO HEAD 1 OR END TEST 

lABORT RETURN 
33TBL,TBLSTR ;STORE START OF TABLE 
101$ ;GD DO HEAD 1 



CSETST 



iSSEMBLf tOUTIiii 



mctu 
i4sif 



3f&Cl§52| 22-10f-78 
*fES? 17 



063062 
013372 
03S362 




16S32 Pkm 2-3S 

**iiifi Loes iii€i &m n&tk psot ictios 



SeQ 0128 



§1111^ 



ill 



002434 



002474 



5SI 



*fESf 17 



If 



|j|t|, 



LOCK iiiOS I»D 



PASiUM 

mIsmiw 

11265$ 



tfESt I? FtRST PISS 
;?isT fr RUi M&MO&L 



DATA PiOfECf lOi 
fl7lS 




IMfERfESflOli 



T17.1S 



fE£ERHEAD 



iSEf 



ERROR HEADER 

-"— E t— - 

fE 



iJZIIi^feJ!^-"" 



UK 

PCfillPQS 

iliLSf&f^?«IIP 

RS^DAfeSi 

PC^XMRITE 

PC^XREAD 

PCDAfCOH 

#FMfOPl^#OPR004^ 

RLDRm^(SPJ^ 



JsPlI to ctii 



laoiR 



;fiRir¥ POSIflOi 

fSf If IpifE LOCK SET 



lURIfi DATA 

>READ DAfA 

;CHECK DAfA 

#0PRlA/#BISlD0,RLBAS,»DR¥MAM,<i,RLDR¥4-l> >REQOISf SEf 



HR 



002474 




;SE? HAIT COUHf 
}CkLL MAIT 



FOR 30 SECONDS 



#MLSfAT,T 



IGET STATUS 

JCHECK IF MRITE LOCK SET 



ASSEMBLY ROOTIiES MACfll 30A(1052) 22-liO¥-78 
CZRLDB.Pll 23-OCf-7S 14:3f *fESf 17 



16S32 PAGE 2-37 

**HRITE LOCK ERROR AMD DATA PROTECTIOM 



SEQ 0129 




015026 



015226 



7$3 



loss 



14$l 



BNE 

PRIMTF 

MOV 

MOV 

NOV 

MOV 

EMT 

ADD 

DEC 

BME 

PRIMTF 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

EXIT 

EMT 

.MORD 

JSR 

1 

MOf 

MOV 

BIS 

BIC j 

MOV 

CLR 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

MAITOS 

MOV 

EMT 

TST 

BNE 

DEC 

BME 

JSR 

MOV 

ERRHRD 

TRAP 

«HORD 

.WORD 

EXIT 

EMT 

.HORD 

JSR 



HT2##BELL 



ELL*-(SP) 



;fES - SKIP 
IRIMG BELL 



U 



CS^MTF 
6,SP 



#fMT23^#P2T17E^ 

-ispi 

RtDRftl#(SP 



|B¥PSNM,-(SP) 

II' 



;DEC COONT 
JSKIP IF HO- - 
#§¥PSMM,#0PR1A,<B,RLDRV^1> ;RPT BYPASSED 



HOT 



4,SP 



JEXIT 
0055- 



R5,DATGEN 

iL,CS|.R5 
BTDATA^^ 
LDRV,(RS) 
BITl8,(R5 
OBOFF^C ~ 



RS)* 
R5)* 



||^600^(R5)* 
lOO.^Rl 




;generate data 
Spatterh 1 

;get address of l regs 
;load write commahd 
^imsert drive number 

{clear for DRIVE 4-7 SPEC'D 

;L0AD bus ADDRESS 

ICYL Q, HD 0, SECTOR 

;128 WORDS 

;SET WAIT COUMT FOR 30 MS 

;CLEAR IMTERRUPT FLAG 

;LOAD RL REGS 



;CHECK IF IMTERRUPT 
;YES - SKIP 
;DEC MAIT COUMT 
^LOOP IF MOT 
;WAIT FOR IMTERRUPT 
>GET RESULT MESSAGE 



?GET STATUS 



ISSEHBLY ROUTIIES 
C2RLDB«P11 23-0CT-78 



14S39 



301(1052) a2-iO¥-78 

*fiSf 17 



mi iim 



16 



m 
m 



II) 



ill; 



il 



63 



lit 

m 
I 



I 



m 



ill 



005S46 



m 



n mm 



640000 
007665 



002000 
007744 



002466 



002474 15$S 



m 



0401 

m 

036000 002466 



015176 
021726 
022414 
022066 
000002 



18$S 



16$: 



17$: 



002440 



Ll( 



m-. 



000002 002440 ?3204$: 



mm 

000001 



16$: 



S32 PIGi 2-38 

^^mim LOCK SRsoe mo Dktk PiOfEctioM 



m 

BNE 
fgfHRD 



iDRfESR^rf^CS 

20| 



;_?ESf ir:,Ai¥ erkor set 

peiiTER 



BIC 

i{¥ 

BME 
BIT 
BEQ 

erIhrd 
.i«o|d 

.tfORD 
BR 

ill 

JSR 

7 

JSR 

60$ 

Jp 

60$ 

MOV 

EMf 

PRpfr 

CLR 

BISB 

MOV 

MQ¥ 

MOV 

MOV 

MO? 

MOV 

MOV 

MOV 

EMT 

ADD 

MOV 

»AITMS 

MOV 

EMf 



Sflf^f.MP 



lioiAll'iit'!.!' 

I?i|f IF »ei 



»ei SE? 

£ rOR Hei MOf SE? 



OOO^T.CS 



i703« 



CLEAR DRIVE ERROR BIf 



ICLEAR 



JGS Bit 
" OT 



«££ERR6 

PC^eStlTR 

RS^DItGEM 

PC^XREAD 

PC/DATCOM 

#2,ERRSiiI 



If AMY OTHER ERRORS 
CO REPORT 
EST Agf ERRORS li CS REG 



ifEST Ajl Ei 
iREPQRt iSri 



;EXIT TEST 

;6Sf STATOS AND RESET ERROR 

ICO GiiERATS DATA 
JPATTERi 7 
IREAD DATA 

>COMPARS DATS 

;iaiT ERROR SSITCH 




SEQ 0130 



0PR12,t£lRlLiBASADi,iLiSs,#DRfiAII,<B^RL0lif-»l> ;RSQ RESET HRT L 
RCpf*l,(SP) 




P£R0 
CSPHTF 

|30D-,R1 



;SET SAIT FOR 30 SEC 



ASSEMBLY ROUTIMES 
CZRLDB.Pll 23-OCT-78 



MACYll 30A(1052) 22-M0V-78 
*TEST 17 



mi 

3652 



in 

3659 



035336 
035342 
Q3S344 
035352 



..J 
IS356 

15360 

f5362 



5362 



1737 



14:39 

015176 

020000 



16:32 PAGE 2-39 

**MRITE LOCK ERROR AMD DATA PROTECTIOM 



002474 



000731 



104001 



EMD|Sf 
L10055 



JSR 

T3204$ 

BIT 

BEQ 

DEC 

BHE 

BR 



SEQ 0131 



PC/GSTATR 

|WLSTAT/T,MP 

f3265$ 

Rl 

T3204$ 



CSETST 



;GET STATOS 

;CHECK IF MRITE LOCK RESET 

;DEC WAIT COUNT 
;L00P if NOT 
;ELSE REPEAT MESSAGE 



ISSEMBLY ROUflMES 
CgRLDi.Pll 23-OCf-78 



MIC¥11 301(1052) 22-MO¥-78 16 
i4s39 *fEST 18 




.SBffL 
BGMfSf 



*TEST 18 



002434 



000001 013372 
177754 



imt mm 
mm ml 



013372 



m 

2S! 



T3300S 



ill 



7$: 



8$: 



32 PAGE 2-40 

**ADJACEHf CYLIHDER IHtERFEREHCE 

**ADJACENT CYLIUDER INTERFERENCE 
;tESt 18 



SEQ 0132 



02332 
.00001 
000007 
000011 



MOV 

JSR 

JSR 

JSR 

T3365$ 

CLR 

MOV 

TST 

BNE 

Bit 

BNE 

MOV 

BR 

MOV 

MOV 

MOV 

MOV 

DEC 

BNE 

JSR 

9« 

MOVB 

MOVB 

MOVB 

MOVB 

INC 

BIT 

BNE 

TST 

BEQ 

ADD 

BR 

ADD 

CMP 

BHIS 

MOVB 

BIC 

BNE 

JMP 

TST 

BNE 

INC 

CMP 

BEQ 

MOV 

CMP 

BLO 

CMP 

BHI 

MOV 

MOVB 

MOVB 

MOVB 



PC,TSTINT 
PCGSTATR 

PASCNf 

PAS^UM 

IIlLCYL/MISSIH 

|-20.,R5 

#-4,R5 

It33TBUR1 

ll0fR3 , , 

LOLIMW^(Rl)* 

R3 

2S 

RS^DATGEN 

HILIMii/T33TBL+2 

HILIMW,T33TBL4-4 

HILIMW,T33TBL*1 

HILIMW,T33TBL4-i 

R5 

|ALLCYL,MISyiW 

PASNOM 



5iPc§l?°KSrJ5E''sECTOP fIlES VALID 
;IHITIALIZE TEST 
ICLEAR DRIVE 

;C|.|AR PASS TO 

;TEST^IF FIRST PASS (QUICK VERIFY) 

• HO — SKIP 

JTEST IF USE ALL CYLINDERS 

sVES "• SKIP 

;ELSE set R5 TO NEG 20 
jSKIP 

lELSE SET FOR NEG 4 
;GET ADDRESS OF WORK TABLE 

j?PE»S'-ES?»??8!li to LOLI.it 



?PEC COUNT 
;LOOP_UH|iL_0 



;0 GENERATE DATA 
jPATTERM 9 

llSfpAPPRbpRIATE LOCATIONS 



#3,R5 

#|9.4rR5 

R5/#41- 



4$ 

CYLTBL(R5),R3 

|i77406,R3 

T3365S 
R5 

21 

j255,,R5 

Ri,R3 

R3i-L0LIMW 

T3300S 

R3^HILIMW 

T3300S 

#T33TBL^R4 

R3,1(R4) 

R3,7(R4) 

R3jli(R4) 



* BUMP R5 

JTEST IF USE ALL CYLINDERS 

• VF*> — ^KI P 

•TEST IF FIRST PASS (QUICK VERIFY) 

;ELSE BUMP CYLINDER POINTER BY 3 

jIum? to next entry 
jcheck if past table 

;YES - SKIP TO EXIT 

;GET next TABLE ENTRY 

JCLEAR UPPER BYTE 

?SKIP IF NOT 

;EXIT TEST 

;TEST IF R5 

;N0 - SKIP 

JELSE BUMP Rb AGAIN 

JTEST IF ALL CYLINDERS USED 

•YES - EXIT TEST 

;USE R5 AS NEXT CYLINDER 

;CHECK IF LOWER THAN LOLIMIT 

YES *" SKI P 
JCHECK IF HIGHER THAN HILIMIT 
J Ypc «. SKI P 

•GET ADDRESS OF SEEK TABLE 
JINSERT CC IN APPROPRIATE TABLE 



&SSEHBLV 
C£RLDB«P 



.ill 



RQOflMES 
11 23-0CT-78 

ill! IW 



MACYll 30A(1052) 22-M0V-78 
14539 *TEST 18 



16:32 PAGE 2-41 

**ADJACENT CYLINDER INTERFERENCE 



SEQ 0133 



000017 




"35730 005737 

Mm mm 

035744 001404 




003760 002426 
002654 



002654 000004 



002654 
002426 



88itll 



T3301$ 
BGNSUB 



10$: 
lis: 
12$: 
15$: 



16$: 



002444 



002536 

002426 
002444 
002426 



000002 002444 29$: 



MOVB 

INC 

MOVB 

MOVB 

SUB 

MOVB 

MOVB 

MOV 

JSR 



EMT 

BIC 

TST 

BEQ 

CMP 

BEQ 

BLT 

MOV 

BIS 

BR 

CLR 

BIS 

MOV 

MOV 

CLR 

MOVB 

JSR 

60$ 

MOV 

JSR 

60S 

MOVB 

JSR 

60S 

MOV 

JSR 

60S 

JSR 

60S 

JSR 

32S 

BIT 

BEQ 

JSR 

60$ 

INC 

CMP 

BNE 

BIC 

BIC 

BIS 

CLR 

BR 

BIT 



R3,17(R4) 
R3 

R3/5(R4) 
R3,15(R4) 

R3r3(R4) 
R3/13(R4) 

R4,TBLSTR 
PC,CHOSHD 



CSBSUB 

#MQUALS/OPFLAG 

PASCNT 

PAicNT,#4 

lOS 

US 



?BUMP R3 TO CC+1 
; INSERT AS NEEDED 

JSET R3 TO CC-1 
JINSERT AS NEEDED 

jSTORE TABLE ADDRESS 
?G0 CHOSE HEAD 



«4, PASCNT 

llNOUTS/OPFLAG 

12$ 

PASCNT ^ _ 

tBLSTR,R4 
DESSEC 
(R4)+£NEWCYL 
PC/XSEEK 

13000, ,R1 
PC/RDYHAIT 

(R4)+#NEWCYL 
PC/XSEEK 

#3000. ,R1 
PC/RDYWAIT 

PC/VERPOS 

PC/BSCHK 

#BIT0/WRTSMI 

29$ 

PCXMRITE 

DESSEC 



T18.1: 



jCLEAR all MESSAGE QUALIFIERS 

;test if pass o 

;YES - SKIP 

?TEST if PASS 4 

• VES — SKI P 

;CHECK if less THAN A, IF YES CLEAR TO 

;ELSE SET TO 4 

JSET MESSAGE QUAL 

jslPpASS COUNT TO 
JSET MESSAGE QUAL ^ ^ ,^^^,, 
;SET READ AND WRITE SWITCH 
jGET STORED TABLE ADDRESS 
;CLEAR TO SECTOR 
;GET NEXT TABLE ENTRY 
;D0 SEEK 

JSET WAIT COUNT FOR 300 MS 
JMAIT FOR READY 

JGET NEXT TABLE ENTRY 
;D0 SEEK 

JSET WAIT COUNT FOP 300 MS 
JWAIT FOR READY 

^VERIFY POSITION 

JCHECK FOR BAD SECTOR 

;"YES" RETURN 

;TEST IF WRITE THIS PASS 

?N0 - SKIP 

;D0 WRITE 



JINC SECTOR 
;TE'" "~ ■" 



|40* /DESSEC 
tfllsyTSigUTINS/OlFLAGjcLEAR QUALIFIERS 



JBITO/WRTSWI 
FOLWRT/OPFLAG 
ESSEC 
16$ 
#BIT1/WRTSWI 



EST IF ALL SECTORS USED 
NO - SKIP 

;CLEAr'wRITE REQUIRED SWITCH ^ 
JSET FOLLOWING WRITE QUALIFIER 
;CLEAR TO SECTOR 

SKI P 
?TEST IF READ THIS PASS 



iSSEMBLY RDUfliiS 
C2RL0B«P11 23«0C?«7 



301(1052) 22-iOf-78 
*fgSf 18 



m^ 




16132 PISE 2-42 

**iDJICii? CfLIlDgS lit SarEREiCg 



SEQ 0134 



KIP 

Q RESO 



DESSEC 

0-^DESSiC 



1CKT^#3 
CiiT,|7 

ifliS^OPFLIiG 

loUTS^OPrLIG 

|Ri¥SKS,OPrLlG 

#2,ERRSMI 
CSESUB 

cIescipe 

L10057~, 

p#MRfSliI 

PlSCM?/#4 



jiSsE 

ICOHPIRE DIfl 
IIOMP SECfOR 

iipf M III SEctoas used 



:l|8 BSf* „ _ 

if P4si cbOH 

" :i>Jn 



. PASl 
AR JiLf 
f IS L - 
- SKIP 



HifSlS"- 



lip? If p&l 



>¥ES - SKIP 
iTESf If p- 



SS 8. 

ASS 3 
P 
|SS 7 



jliirif^jfsS 2 

lip MeIIIgE QO|LiriER 

)6Q 00 ip? Piss 

}Sm MESSAGE QUALIFIER 



7SE? MESSAGE QUALIFIER 

(SET 



Isi' 



IT MESSAGE QUALIFIER 
t READ REQUIrIo 



;lilf ERROR SWITCH 



;EKIT TEST IF ERROR 



;SEt FOR READ AHD MRITE REQ. 
ifESf IF PASS 4 
""IP 



j||3tBL*10^?BLSTl JsigiFMip POIiT IM TABLE 
ifi««« ^^P START PASS 4 



BAPHD 



|T33TBL,TBLSfR 



EMT 



3301$ 



CSETST 



;CLEAR TO PASS ^ 

iCg SWAP TO HEAfi 1 OR EMD TEST 

lABORT RETURM 

;STORE START OF TABLE 

;gq do head 1 



ASSEMBLY RQUflMES I^ACYll 30A(1052) 22-M0V-78 16:32 PAGE 2-43 
CZRLDB«P11 23"0Ct-78 14139 *TEST 19 **0¥ERWRITE 



SEQ 0135 




.SBTTL *fESf 
BGMTST 



19 



002434 



013372 



002334 

mm 

013372 



2$: 



T3400S; 



m 



7$: 



8$s 



**0VERaRITE 
}TEST 19 



HO? 

JSR 

JSR 

JSR 

T3465$ 

CLR 

M0¥ 

TST 

BHE 

BIT 

BNE 

MOV 

BR 

MOV 

MOV 

MOV 

MOV 

DEC 

BNE 

HOVB 

MOVB 

HOVB 

INC 

BIT 

BNE 

TST 

BNE 

ADD 

BR 

ADD 

CMP 

BHIS 

MOVB 

BIC 

BNE 

JMP 

TST 

BME 

IMC 

CMP 

BEQ 

MOV 

CMP 

BLO 

CMP 

BHI 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 



IP2T19E/ERHEAD 
PC^CKBSVD 
PC^TSTIMT 
PC^GSTATR 

PASCHT 

PAS^UM 



T19! 



LLCYL^HISMIM 

|520.,R5 

t-4,R5 
fT33TBL,Rl 
|lO«R3 ' 
L0LIMH,(R1)-!- 
R3 

h!lIMH^T33TBL*2 

HILIMH/T33TBL+6 

HIL1mM^T33TBL*1 

R5 

|ALLCYL,MISSIM 

pIsnum 



th'' 



#41. 



mi' 

0,R3 



cIlTBLCR5),R3 
|17740r "^ 

t!465$ 

R5 

7S 

R5 

|255«,R5 

Ri/R3 
RS^LOLIMS 
T3400S 
•^^ ""- .IMW 



R4 



R3,HILII 

R3^1(R4) 
R3/3(R4) 

R3#7fR4) 

R3,li(R4) 

R3'l3(R4) 



;SET ERROR HEADER 

5?Si5?f£?zlMs*? ""'"' """ """ 

;CLEAR DRIVE 

;CLEAR PASS TO 

;SET R5 

;TEST if FIRST PASS (QUICK VERIFY) 

?fia - SKIP 

;test if use all cylinders 

;YES - skip 

;else set R5 to HEG 20 

;SKip 

;set for hext emtry 

;G|| ADDRESS OF BORK TABLE 
SSET clear COUMT 

;clear locations to lolimit 
;dec couht 

'jOOP OMTIL 
"lERT HILIMIT 
^^ APPROPRIATE LOCATIOHS 

%BUMP R5 
;TEST IF USE ALL CYLIMDERS 
;YES - SKIP 
;TEST IF^pRST PASS (QUICK VERIFY) 

;ELsi BUMP CYLINDER POINTER BY 19 

;bump cylinder pointer by 3 

;TEST IF PAST VALID TABLE 



;Loop 
>inser 

;INT0 



;gIt 



KLE 



NEXT TABLE EMTRY 
EAR UPPER BYTE 
JSKIP IF NOT 

;ex|t test 

;TEST IF R5 

;M0 - SKIP 

;|LSE BUMP R5 AGAIN 

?TEST IF ALL CYLINDERS USED 

;YES - EXIT TEST 

lUSE R5 AS NEXT CYLINDER 

;TEST if PAST LO LIMIT 

?YES - SKIP 

;test if past hilimit 

IVES - skip 

IGET ADDRESS OF SEEK TABLE 
;IiiSERT CC IN APPROPRIATE TABLE 
; LOCATIONS FOR TEST SEEK SEQUENCE 



) 




«f lit If 



161 



umv 



10$l 
Ills 
12$S 
ISSs 



less 



ill 
if 



002536 



051426 



J$R 



32 ^l^m 2-44 



SEQ 0136 



g^jclSF^-^ 



mm 



CSBSUB 
"1 

ioSliJoprLie 
llipl 

POOO.^RI 
PC^RD¥MiIf 

PC,¥ERPOS 

PC^BSCHK 

PASCHf 

iafpiscMf 



Jio"!!fofr&i*S''°''"^ 



n9.i! 



J¥kif IE*!:!*?!''!"' «"""'='«' 



fr LESS fKAl 3^ 




ir ¥ES CLEIR TO 



PISS couif fa 



ilffi" 



_„. 'ii|f flBLE EMfRf 
|D0 SEEK 

iSEf illl CQUHf FOR 300 MS 
Jillf FOR REIDf 

im SEEK 

ISEf MAIf CQOMf FOR 300 MS 

}Um FOi REiD¥ 

|¥ERIF¥ position 
SCHICK rOR BID SECTOR 

lifiP^Tsi 

lliif^ii'ilss 3 



li;6illEi 

piTO^iRfSMI 

PcflMRIlS 

DESSEC 
|40«^DESSEC 

ilioUfSiOUTiSS^ 
|BITO,MRfSai 
iFOLMRf^OPFLlG 
OESSEC 



|liiE"'cLlil DIfA PlffStl SELECTOR 
ITEST IF MRIfE THIS PISS 

im - SKIP 

iBo MRIfE 

IliC SECTOR 

Ifglt IF ILL SECTORS USED 

oIPlW >Cl|aR QyiLIFIERS 



JCLEAR MRIfE REQUIRED SMITCH 
ISEf rOLLOilllG MRIfE QUiLIFI 
ICLEIR to SECTOR 



3939 
3940 



y ROUTIHES 

Pll 23-OCf-78 

037300 
037312 



0373 



037424 012231 

ii '*' 



MICYll 301(1052) 22-M0V-78 16:32 PAGE 2-45 
14S39 nEST 19 **OVERMRITE 



SEQ 0137 



104003 



968 



3978 



11 m 

.,42 001004 

m silpi 

7560 004731 

7564 QMi 

7S74 0001 
760r 

m 

760* 



03760 
03760 



002444 



0050 002536 



000002 
022414 
022066 
002536 



002536 
002444 



002654 
002654 
002654 
002654 

002000 
000020 

umi 

000002 



000 
002 



002340 




29SI 
31$: 

32$: 
33$: 



002426 
000003 

000006 

000001 

000004 

002444 
000002 

002426 

002426 

002426 

mm 

002440 



002444 
000003 

002446 



002446 



mi 

39$1 

40S: 

41SI 

60SS 

EiDSUB 

L10062J 



45$S 



104001 



Tlilss: 
EHDMOD 



BR 

BIT 

BEQ 

JSR 

60$ 

JSR 

60$ 

IMC 

CMP 

BME 

CLR 

CLR 

IHC 

BIC 

CMP 

BEQ 

CHP 

BEQ 

CMP 

BEQ 

CMP 

BEQ 

MOV 

cnp 

BEQ 
BIS 
J HP 

BIS 

BR 

BIS 

MOV 

BR 

MOV 



EMT 

ESCAPE 

EMT 

.iORD 

MOV 

CMP 

BME 

MOV 

BR 

CLR 

JSR 

T3400S 

MOV 

J MP 



16$ 
iBlfl^MRTSil 

PCi^XREAD 

PC^DATCOM 

DESSEC 
|40-^DESSEC 

DESSEC 
WRTSMI 
PASCNT 
#MQUALS,OPFLAG 

60$ 

PASCHT^#6 

60$ 

PiSCHT/#l 

39$ 

PA|CMT^#4 

40S 

piTl^iRlSil 

pASCllf,»2 

37$ 

IREVSKO/OPFLAG 

15$ 

IFIDSKO^-OPFLAG 

|6$ 

IlioUfS^OPFLIG 

41$ 

lOUTIHS^OPFLIG 

iBITO^MRTSil 

36$ 

#2#ERRSWI 



iTESf IF READ THIS PASS 
ISO - SUP 
lELSE DO READ 

ICOMPIRE DATA 

IBUMP SECTOR 

ITEST IF ALL SECTORS USED 

|M0 - LOOP 

ICLEIR DESIRED SECTOR , 

ICLEAR MRITE/READ SMITCH 

IBUHP PASS COOKT 

ICLEAR ALL QUALIFIERS 

ITEST IS PASS 3 



I YES - SKIP 
StEST IF..PASS 



lYES - SKIP 

ITEST IF PASS 1 

lYES - SKIP 

ITEST IF PASS 4 

'YES — SKIP 

ISET SRITE REQUIRED BIT 

iTESf IF PASS 2 

lYES — SKIP 

ISEf REVERSE QUALIFIER 

|G0 DO SEIf PASS 

ISET FiD QUALIFIER 

IGO DO MEXT PASS 

ISET QUALIFIER 

ISET MESSAGE QUALIFIER 
ISET iRITE REQUIRED BIT 
|G0 DO HEKT PASS 
llilf ERROR SMITCH 



lEXIT TEST IF ERROR 



CSESUB 

TST 

CSESCAPE 

pJsRTSfil ISET FOR READ AND yRITE REQ. 
I CNt,#3 ,tESt ir^PASS 3 

|f|3fBL-s-6^fBLSTR iSfORE^MID. POINT IN TABLE 



EMT 



PASCHT 
PC#SiAPHD 

||33||L,f8LStR 



CSEfST 



iGp START PASS 4 

ICLEIR TO PASS 

iGO SiAP fO HEAD OME OR ABORT TEST 

I ABORT RETORH 

iSfORE START OF TABLE 

|gO 00 HEAD 1 



'•pss^ # 



ASSEMBLY ROUTIiES 
CZaLDB«PT2 22-MOf-7@ 



000025 



MAC¥H 
1SS57 



30IC1052) 22-iOf-78 
*fESf 19 



16S32 PJkGE 3 



SEQ 0138 



iSMMOD 
BGHHRD 



HRDPRH 



GPSML CMflPE, 



GPRMS 



M' 




mm L10063~LSH 

'ifiPE,eifci£Ps 



IRD/2 



%0 

cSf¥PE 
G,c|R^O|r 160000^ 171"Ft6,fES 

cIrmsg 

,ilORD ilHItlH 
VECMSG,VECf£0£0/776#¥ES 

.WORD ¥gCMSG 
WORD tIlOLIM 

_ iSG,PRiOR£0£340^0/7/¥BS 
,11080 tSCODE 
.HQRD pMSG 



OLIH 



,DR 



QRMSG 
3400 
tSLOLIM 
tSHILIM 



00,0,7^¥ES 



.ASCIZ 
.iSCIZ 



/BUS IDORESS/ 
/¥ECTOR/ 
/BR LEfEL/ 



000130 
040114 



BGiMOD 
BGNSrt 



GPRML 



GPRHL 



/RLi 

.EVEi 

SFTPRM 

.WORD L10064-L$SOrT/2 

CYLQ^MISWIfl^YES 
.WORD fSCODE 
.MORD C¥LQ 
.SiORD 1 
SECQ,MISWI,2^¥ES 
.MORD fSCODE 
.aORD SECQ 



ASSEMBLY ROUTIMES M&CYll 301(1052) 22-ilOV-78 16:32 PAGE 3-1 
CZRLDB.PT2 22-H0V-78 15S57 *fEST 19 **OVER»RIfE 



SEQ 0139 



000002 




404^0 



000130 



GPRML 



GPRML 



IS! 



2$S 



3$: 



-MORD 2 

MAMQ/MISWI^100000,¥ES 
-WORD TSCODE 
.WORD hImQ 
»IIORD 100000 



LQLIMQ, 

.UQRD 

.WORD 

.WORD 

XFERF 

.MORD 

GPRMD 

.WORD 

.MORD 

.WORD 

• WORD 

.WORD 

GPRHL 

.W0I7D 

.WORD 

.WORD 

XFERF 

.WORD 

GPRMD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

GPRML 

.WORD 

.WORD 

.WORD 

XFERF 

.WORD 

GPRMD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

GPRMD 

..WORD 

-WORD 

.WORD 

.WORD 

.WORD 

GPRMD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

AUTOQ,H 

.WORD 



MISHI,40000^¥ES 

ir 

40 



QLIMQ 
OOOO 



TSCODE 
HILIMQ 
20000 



;CQDE 

[code 
mvaulolih/d, 255., 0^253. /yes 

CODE 
[MV&L 
j5. 

LOLIM 
JHILIM 
HILI«Q/MISWI,20000/YES 
-ICODE 

:limq 

2$ 

TSCODE 

LfMVAL/HILIM,D, 255, ,0/255., YES 

TSCODE 

LIMVAL 

255. 

TSLOLIM 

TSHILIM 

HEADQ/MISWI/IOOOO/YES 

TSCODE ' ' ^ 

HEADQ 

10000 

3S 

TSCODE 

HEADV/HEAD/D,17/0/l/YES 

TSCODE 

HEADV 

TSLOLIM . ' 

TSHILIM 

ERLIMQ/ERLIM/D/377^/0/377/¥ES 
TSCODE 

TSLOLIM 
TSHILIM 

DCLIMQ/DCLIM/D/377/l,377/YES 
TSCODE 
DCLIMQ 
377 

TSLOLIM 
TSHILIM 
ISMI/20/YES 
TSCODE 



ISSIMSL? EOOflfiS 
C2SL0S,PT2 22-iOf-7S 



J ill 



li 



4031 
4037 



4639 



4040 



4041 



4042 



4043 



4049 



4046 



4043 



090 



ml 




040442 



MICfll 30IC10S2) 22-iOf 
1SIS7 «TESf 19 



EiDSrf 

L10064: 

CfLQ: 

SECQ! 

HASQS 

LOLIMQ: 
LIMflLS 
HILIIIQ3 

HSiibQS 



r 



m 



ml 



-78 16S32 PAGE 3-2 
**OVERSRITE 

•WORD kUtOQ 

«mm 20 

-E?EM 

-iSCIZ /USE ALL CVLI8DERS/ 

»&SCIZ /USE ALL SECfORS/ 

,ASCIZ /EXECUTE MAiUAL IgTER¥EM?IO!l TEStS/ 

•ASCIZ /LOMER SE^K LIMIT/ 

,ASCIZ /ESTER VALUE/ 

.ASCIZ /UPPER SEEK LIMIT/ 

.ASCIZ /USE DULY OME SURFACE/ 



51040 
51516 

041440 



HEADfJ -ASCIZ /SPECIFY SURFACE (0 OR 1)/ 

ERLIMQS .ASCIZ /SPECIFY ERROR LIMIT/ 

AUTOQ: -ASCIZ /DROP DRIVE IF MO RESPONSE/ 

DCLIMQ! .ASCIZ /DATA COMPJ^RE ERROR LIMIT/ 



040514 



E80H0D 



.s 40 5 1,4 



.EVEM 



aSSIMiLT ROUfllES _ MlCfll 301(1052} 22.!i0|-78 l^^JJ PAGE 3-3 
eiiLDB,PT2 22-M0f-78 15s57 *TEST 19 **OVERSRITE 



SEQ 0141 



lAREA RESERVED AS PATCH AREA FOR DIAGNOSTIC 
>*=40514 WAS SELECTED AS "LASTAD" TO PROVID 
;llT 7 OF "LASTAD» MUST BE CLEARED TO ACHlE 
JhHEM RDimiHG OH THE LSI-11 UNDER APT. 



^E APT TO LSI-11 COMPATIBILITY. 
EVE A VALID MAILBOX ADDRESS 



74 040514 
I) 040514 



LASTAD 
LSLAST! 



.EVEN 



'/^ 



umi 



f 



i©itiOS2) a2«iOf»78 16532 PISE 4 

DliSMOiflC SaPESflSOi «- LOi CQli SEf UP 



.nasi 

m 



Ai 



iiGiosfic numm 



I 



.EMD 300 ^ 



yi?!?r?Q!f°Ssg8''Po§Pp!i?« 



JP.ot. 



m'.nmcmu 



SEQ 0142 



ASSEMBLY ROUtlHES MIlCYll 301(1052) 22-II0V-78 16:32 

CZRLDB^SUP 23-0CT-78 09s53 SYMBOL T4BLE 



PAGE 5 



ABOFLA 
ABOPAS 
&BO.FM 
ifMID 

afmIdo 

IFSt 

ALLCYL= 

iLLQC 

JlPf.ER 

&rmIp 
&rm!du 

ASSEHB= 

I8l8§z. 



041040 
040756 
043320 
002632 

mih 

000001 
061460 



AkkZ 

liSfS = 

'Mr 

BGIi,SO= 
"HSTATs 
SG 



AH 



m 



_t06 
It07 



m 



s m 



U' 



000004 
000010 
000020 
000040 
000100 



BSFVIL 
BSMSfR 



2442 

m 
m 



CHQSHD 
CHRCMf 
CH.FLA 
CH.PAS 
CKBSP 
CKDAf A= 



&% 



40.754 
066204 
040752 



064260 



COHHNG 
COSTCL 
CONTIM 
COSTAT 
CgOMT 




000035 



SKWON= 
|LOOP= 
SMANIs 
SMSG = 



800050 
00045 
00033 
000002 



SWTM 
MTU 



000001 

Tom 
^m 

06 0004 
002530 
002534 
002536 
002532 

000000 
041046 
002520 
,007314 

oioooo 

mi 

070344 




^ 



) 









HaCiril 301(10115 22-iOf-78 16132 PUGE 5-1 
ft |S3 ifHSOI. flBLg 

GSEXCP= 



SEQ 0144 



mt 



GE|,TH 

glbeIr 






llfsis 

GSf&TR 
GfSfI?= 



rnhil' 



G$PR«D=^ 
GSPRMLs 

gIrhdas 

GSRADB^: 

gIr&dds 
gIradfs 

1: RADOs 
GSYES = 

hIqome 

mir 

HCRCERs 
HC.AOR 
HC.OEF 
HC.pI& 
HDJlLJGs 
HDCYL = 
HOHSEL= 
HDMOVF 
HORCMP= 
HDR40 = 
HDSEC = 
HDSEL = 



HEADQ 
HEADV 



HFIM 
HFIMO 



1000 
OOOO 



!iPERR= 

qLdsp= 

pfcOD 
RDPRH 
RDMTS 
RIN 
RllfU 
or- 




m 



N 

M' 

MTHLR 

.N¥AL. 

HVIM? 

M.SUF 
AU = 
CLH = 
DU = 
HRD = 
IWIT= 
MOD = 
HSG s 
PWR = 
RPT = 

?SEG = 

SRV = 
SUB = 

Itst = 

SJMP = 

JPtR 

LABACF 

LABACR 

LABEXP 

LABHCF 

LABHCR 

L^BIN 

L&BMID 



dd020 
054102 

nm 

000041 
00Q041 

im 

000041 

000041 

00041 

nm 

000041 
000167 



gS 8 



ill 




ASSBMBI.? ROQflWES 
CZBLDB-SOP 23-0Cf-78 



MACtll 30A(1052) 22-HOV-78 16:32 
09:53 SYMBOL TABLE 




10043 
.0044 
0045 



mm 



MFMTER 
MFOLUR 



040576 
066206 

im 
mn 

047616 
047614 
005462 
005503 
000001 
007554 
006115 
010134 



007576 
002000 
007623 
007543 



m 



007 



HHCRC 

MHDERR 

MHDRCP 

HHFCRC 

MHNF 

MTNOUT 

MIN.IN 

MIN.US 

MISWI = 

MISWIW 



MITEST= 

MHDRST 

MNEERR 



MNOCLR 

MMOINT 

MOOR 

MOPER 

MOPERR 

MORECE 

MODTIN 

MPNAM 

MQUALS= 

MREAD 

MREADH 

MRESKO 

MREVSK 

MRLFAL 

HRSLT 

MSEEK 

MSG.AD 

MSCTY 

MSPERR 

MSTEPR 

MTMBS 

MTDSLO 

MUL 

MULOAD 

HUNDEF 

MHDERR 

MWGERR 

MWORD 

MWRCHK 

MWRITE 

MWRSET 

MHRfAB 

M40HDR 

NEUCYL 

HEWPRI 

NEXTAR 

NOCLR = 

NOERCt 

NOIRPT= 

NOOP = 



PAGE 5-2 






1 




SEQ 0145 


007566 


NOPWR 


005673 


PATl 


88«15 




010051 


MQ.CLK 


045102 


'ATIO 




005071 


NO. FLA 


063772 


»AT2 


004470 




007635 
007607 


HO.LPT 


UT3 


004530 




MO.PTA 


»AT4 


591149 




005235 


HR 


000000 


>AT5 


004630 




inm g 


NUMBIN 
NUM. LA 


054434 
054602 
040556 G 


'AT6 
»AT7 


mt¥e 






HOH.NO 
NUM«UN 


:j?l 


004700 
004740 




100000 


HUN TS 


'H65S 
'OSHDS 


017072 
016570 




010114 
006141 


NXMERR= 


020000 




MXfFOR 


004066 


'OSHDO 


020624 
0206 




MXTPAS 


'OSHSB 




006062 


OBUFF 


'OSHWl 


0206 2 




070256 G 


8?IK" 


mii'2 


'RINTC 
>R NTF 


'.nil 




OFINU 


002564 


>R OR = 


000004 




DFMID 


002566 


>RIOO = 


000000 G 




nil 


OFMIDU 


002574 


>riq! = 

>R 02 = 
»RI03 = 


mm 1 

000140 G 




004752 


OLDCYL 


002522 


>R 04 = 


229429 2 




004765 


ONSWAP 


017454 


'R 05 = 


000240 G 
000300 G 




005426 


OPFLAG 


002426 


'R 06 = 




005304 


OPIERR= 


002000 


'R 07 = 


29?^?9 ^ 




010246 


OPMSGS 


002122 
007277 


'RNTST 


061210 




005157 
004744 


OPR004 


'RO.CM 


045460 




OPRIA 


007250 


'SETNM 


99?9§5 . 




040540 G 


OPRIB 


007254 
007231 


'TAB.S 


nm'A ' 




040514 G 


OPR 2 


;OTCHR 




00^726 


DRIN 


002576 


'WRFLG 


UTA 




ORINU 


002600 




005560 


ORMID 


002602 


'WR.FA 


071150 G 




006013 


ORMIDU 


002604 


•WR.FL 


040604 G 




0702 2 G 


OROUT 


002606 


>WR.MS 


9^26 




005173 

mm 


ORGUTU 


002610 
000000 


>WR.SA 


021222 

071274 
045120 
006225 




aUTINS= 
0$APTS= 


'WR.UP 
'.CLK. 




007744 


DSAU = 


000000 


'2T01E 




006005 
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